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PROLOGO 


La mayor parte de los libros sobre lenguajes de programación se 
limitan a explicar las instrucciones de que consta ese lenguaje, su sin- 
taxis. Por otro lado, el autor debe ser consciente en todo momento de 
que los lectores van a trabajar con aparatos de diversas marcas, todas 
ellas dotadas de diferentes versiones de este lenguaje. El resultado es un 
libro gris, con el que se puede aprender a programar, pero que no 
permite obtener el mejor rendimiento de ningún ordenador concreto. 


Este libro pretende enseñar a programar en BASIC a los poseedores 
del Spectrum que no sepan hacerlo, y a los que ya saben programar les 
puede ayudar a mejorar sus métodos y la explotación que hacen del 
microordenador. Para lograrlo hemos intentado superar las dificultades 
anteriores, buscando la mayor variedad posible en los ejemplos que 
presentamos, y que hemos graduado cuidadosamente según orden de 
dificultad creciente. Además, nos hemos apoyado en una larga expe- 
riencia como profesores de Informática para jóvenes, adultos y en al- 
guna ocasión niños, que nos ha permitido desarrollar una metodología 
que aúna la utilización de los recursos de la Programación Estructu- 
rada, con una introducción gradual y amena en el mundo de los orde- 
nadores. 


Por fin, en los últimos capítulos intentamos facilitar al lector el lo- 
gro de una explotación óptima de los recursos de este excelente ordenador 
que es el Spectrum. Como ejemplo, podemos señalar que la portada de 
este libro ha sido programada empleando solamente los métodos e ins- 
trucciones que aquí desarrollamos. 


Los temas que más ampliamente tratamos son los gráficos, música, 
juegos educativos, sin olvidar alguna aplicación comercial o industrial. 


Pero será mejor que nos callemos y dejemos hablar al Spectrum... 
Los Autores 
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1 
DESPERTAR 
A UN ESPECTRO 


Conexiones. El cursor. PRINT. ENTER. DELETE. 


Cómo despertarme 


Del transformador que me acompaña en la caja salen dos cables, 
uno termina en una clavija y otro en un enchufe: conecta el enchufe a la 
red (220 v.) e introduce la clavija en mi conexión (9 v.). En la caja hay otro 
cable que sirve para conectarme a la antena del televisor. Pon la tele en 
UHF y busca el canal 36. Cuando le tengas aparecerá con nitidez en la 
pantalla: 


O 1982 Sinclair Research Ltd. 


Fig. 1.1 


El teclado 


En mi teclado las letras van colocadas como en una máquina de 
escribir. Prueba a pulsar la tecla (A) , por ejemplo. ¡Sorpresa! en la 
pantalla aparece escrito NEW. Si pulsas de nuevo la misma tecla sale la 
letra a. En este momento ya puedes teclear cualquier frase. Escribe 


“agua caliente”; tendrás que apretar (U) 
(E) (1) (N) (1) (E) La tecla está situada en la parte 


de abajo, a la derecha, y hace el papel de la barra espaciadora en una 
máquina de escribir. 


El pequeño cuadrado negro que aparece en la pantalla, y no 
para ni un momento de apagarse y encenderse, se llama cursor y sirve 
para indicar el lugar donde escribiré la próxima vez. 


Para conversar 


Desenchufa la clavija y vuelve a ponerla en su sitio. Ahora que 


todo está otra vez come al empezar, aprieta la tecla E PRINT|Y verás 


que aparece en la parte baja de la pantalla, zona de edición, la palabra 
PRINT. A continuación escribe el número de tu portal y pulsa 
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ENTER] . Como puedes observar, el número ha aparecido en la parte 
superior de la pantalla, y en la inferior queda un letrero raro. 


Te explicaré lo que ha pasado: primero has escrito PRINT 26 
(escribe 26, supongo que vives en ese número) y luego has pulsado la te- 
cla [ENTER]. Debes saber que la pantalla está dividida en dos zonas: en 
la parte de abajo van apareciendo las cosas que escribes en el teclado; 
cuando pulsas [ENTER] leo lo que me cuentas en la parte inferior de la 
pantalla, y te contesto en la superior; si pones que escriba 26( PRINT 26 ) 
al apretar [ENTER] lo leo y lo hago, pero en la parte alta de la pantalla. 


Correcciones 


Si pulsas una tecla por error y quieres borrar lo que salió en la 
DELETE 


pantalla, aprieta la tecla ceda y, sin soltarla, la tecla 


Al hacerlo, el cursor da un salto hacia atrás y borra la letra que estaba 
escrita a su izquierda. Esta tecla, lo mismo que las demás, tiene repeti- 
ción, mientras la mantengas apretada seguirá borrando. Vamos a 


hacer otra prueba, ahora escribe PRINT P NE ) seguido del año 


de tu nacimiento, pero equivócate, pon 917 por ejemplo. Para borrar ese 
DELETE 


: E CAPS : 
tario, t G ; : 
error involuntario, tienes que apretar SHIFT ; pues bien 


déjalas apretadas hasta que se borre toda la línea. En este momento 
puedes observar que en el cursor no está la letra L, sino la K; ahora 


puedes pulsar otra vez la P PRINT| Y escribes PRINT , precisamente 
porque el cursor tiene la letra K (comando, orden; si hubieses apretado 


A NEW? habría aparecido NEW); si a continuación vuelves a pulsar 


P PRINT|> “omo el cursor ha cambiado a la letra L escribes la letra p. 


Puedes borrarla y escribir el año de tu nacimiento, y cuando aprietes 


ENTER] yo lo escribiré arriba. 
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RESUMEN 
SPACE: 


Cursor: 


PRINT: 


ENTER: 


DELETE: 


separa la escritura. 


cuadrado que parpadea en la mitad inferior de la 
pantalla. Señala dónde se va a escribir. 


ordena escribir en la parte superior de la 
pantalla. 


al pulsar esta tecla, el contenido de la parte in- 
ferior de la pantalla, zona de edición, “pasa al 
ordenador”, que obedece las órdenes que allí 
figuren. 


borra la letra u orden situada inmediatamente a 
la izquierda del cursor. 


Z 
ESCRITURA 


Desplazamiento del cursor. Símbolos de puntuación. Mayúsculas. LPRINT. 


Para escribir el nombre y una fecha 


Ya sabes cómo decirme que escriba tu año de nacimiento, y cómo 
poner letras a continuación de la orden PRINT; sin embargo, si quieres 
que ponga en la pantalla tu nombre y fecha de nacimiento, no basta 
con decirme PRINT carlos 1968 y pulsar , porque como ves 
no te obedezco. Si quieres que escriba nombres o palabras tienes que 
ponerlos entre comillas. Como ya has escrito la línea que figura arriba, 
tienes que hacer retroceder el cursor; para avisarme que quieres hacer 


<a 
: CAPS Lona ; 
eso, aprieta las teclas SHIFT y verás cómo lo desplazo hacia 


la izquierda. Una vez tengamos el cursor entre PRINT y la letra c hemos 


de poner las iaa eso lo hago con SYMBOL el Apre- 
SHIFT 
tando luego CAPS Na re | OS el cursor a la derecha de la letra s, 


y puedes poner las otras comillas, igual que antes. Ya sólo te falta poner 


punto y coma PRE Se O ijentre las últimas comillas y el año de 


tu nacimiento y pulsar (ENTER) ENTER). 


PRINT "carlos": 1968 


La coma y el punto y coma 
Si quieres que escriba varias cosas es imprescindible que intercales 
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entre ellas un punto y coma o una coma. Para escribir, por ejemplo, la 
fecha del descubrimiento de América puedes decirme 


PRINT 12:" de octubre de ":1492 


y pulsar [ENTER] . Ten cuidado de no olvidar ningún hueco, para 
evitar que salga todo demasiado junto; de todas maneras ya sabes cómo 
desplazar el cursor, y te será fácil insertar lo que hayas podido olvidar. 


Tal vez te guste más poner los meses con número, y separar unos 
números de otros con guiones. Puedes escribir un guión con las teclas 


SYMBOL||J a . 
SHIFT Y —, y poner la fecha anterior así: 


PRINT 12: "-":10:"-":1492 


Como ves, si pulsas ras y la mantienes apretada mientras 


tocas otra tecla, no escribo la letra o número que aparece en esta se- 
gunda tecla, sino el símbolo o palabra escrito en rojo que le acompaña. 
La manera de indicarme que ponga en la pantalla la palabra escrita en 
blanco, la letra o el símbolo escrito en rojo sobre la tecla es la misma 
siempre. Estaría bien, para que te familiarices con las teclas, que escri- 
bieras varios mensajes; por ejemplo: 


DIM din. don don; te cambio 10 por 20. 


No olvides las comillas. 


¿Qué pasa si en lugar de separar dos palabras con punto y coma (;), las 
separas con coma (,) ? Pruébalo, dime 


PRINT "bueno","bonito"."barato" 


y verás que escribo esto: 


bueno bonito 
barato 


Fig. 2.1 


Te explicaré lo que ha pasado: al conectarme a la tele, divido la 
pantalla horizontalmente en dos zonas, la de edición (abajo) y la de exhi- 
bición (arriba); y la parte superior la divido verticalmente en otras dos 
zonas. 


Fig. 2.2 


Si escribes 
PRINT 8,5 


te aparecerá el 8 en la primera zona y el 5 en la segunda; la coma (,) es 
el símbolo que me indica que debo cambiar de zona. Si hubieses puesto: 


PRINT B:5 


o bien: 


PRINT "bueno":"bonito":"barato" 


aparecerían los números o las palabras escritos sin ningún espacio entre 
ellos. La coma me hace cambiar de zona; en cambio, el punto y coma 
me indica que debo escribir a continuación, sin dejar ningún hueco. 


Mayúsculas 


Hasta ahora sólo has podido escribir con minúsculas, pero hay dos 
maneras de conseguir que escriba con letras mayúsculas: primera, man- 


tén apretada la tecla prota y, a la vez, pulsa las letras que quieras que 


salgan escritas en mayúsculas; por ejemplo: 
CAPS | (A) (G] (U BREAK 
EI A AO BA 


aprieta ésta l todo el tiempo, 


CAPS LOCK 


á CAPS - 
segunda, mantén apretada SHIFT Y pulsa po Mira la pantalla: 


el cursor que era L ha pasado a ser C (el cursor en C me avisa para que es- 


criba con mayúsculas). Para volver a escribir con minúsculas, pulsa de 
CAPS LOCK 


nuevo | CAPS y 17 y el cursor se volverá a poner en L. 
SHIFT 


Esta segunda forma resulta más cómoda cuando quieres escribir va- 
rias mayúsculas. 


La impresora 


Si me conectas una impresora, puedes emplear todo lo que te he 
contado para escribir en papel. MUCHO CUIDADO: antes de ponerme 
la impresora tienes que asegurarte de que estoy dormido; desenchufa todo 
y sólo entonces puedes hacerlo. De otra manera puedes causarme serios 
problemas. 
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Para que escriba por la impresora mi nombre, por ejemplo, tienes 
que decirme: 


LPRINT "Spectrum " |ENTER 


La instrucción LPRINT está escrita en verde sobre la tecla 
LPRINT 


[Cc ; puedes dármela con esta secuencia de instrucciones: 


LPRINT 


CAPS SYMBOL el 
SHIFT SHIFT 
YA 


al tiempo sin apretar las otras 


21 


RESUMEN 
3 desplaza el cursor hacia la izquierda, sin borrar. 
=> desplaza el cursor hacia la derecha. 


” (comillas): han de ir antes y después de las palabras que 
se desee escribir. 


; (punto y coma): se intercala entre los números o palabras que 
se vayan a escribir ; no deja huecos entre ellos. 


, (coma): se intercala entre los números o palabras que se 
vayan a escribir; el que va detrás se escribe en 
otra zona vertical de la pantalla. 


Los símbolos rojos que están en las teclas se obtienen pulsando 


a y la tecla deseada. 
Mayúsculas: aii y la tecla deseada, o bien Er 


CAPS LOCK 


2) que mantiene la escritura en ma- 


yúsculas. 


LPRINT: pasa la escritura a la impresora. 
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PROGRAMAS 


Programas. Rectificar errores. STOP. RUN. Gráficos. Dibujos simples. 
CES. COPY. 


Cómo se hace un programa 


Parece que ya es momento de comenzar a escribir programas. Un 
programa es una lista de instrucciones. En BASIC los programas están 
formados por líneas de instrucciones, cada una de las cuales lleva de- 
lante un número, para que yo las pueda ordenar; no es necesario que 
estos números sean consecutivos. 
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Vamos a empezar recordando dos fechas históricas, las del lanza- 
miento del primer satélite artificial y la llegada a la Luna. Escribe las lí- 
neas que ves a continuación y al acabar cada una de ellas pulsa [ENTER] . 


20 PRINT " En 1957 fue lanzado el primer satelite artificial." 
YO PRINT "+ e 1: PRINT 

69 PRINT " En 1969 un hombre piso la Luna." 

80 STOP 


Cada vez que pulsas [ENTER] me llega la línea que acabas de escri- 
bir, y como lleva un número delante me doy cuenta de que es parte de un 
programa y la guardo. 


Fíjate que en la línea 40 no hay una instrucción, sino dos. Puedes 
poner varias instrucciones en una línea, separándolas con dos puntos (:); 
las ejecutaré en el mismo orden en que aparezcan escritas. 


Cuando aparece PRINT sin nada detrás, bajo una línea sin escribir 
(escribo *““nada”). 


Rectificar errores 


Si en algún momento cometes un error, tranquilo..., eso es propio de 
humanos; yo soy muy paciente, sólo tienes que escribir bien la línea equi- 
vocada y cuando pulses recogeré la nueva versión, anulando la 
antigua. Este mismo método vale para borrar líneas: escribes el número de 


la que quieres borrar y pulsas [ENTER] . Inmediatamente la quitaré del 
programa. 


Prueba añadiendo al programa la línea 
100 PRINT 32 


y pulsa ENTER ;la línea está ahora con la otras, en el programa. A con- 
tinuación escribe 


109 


y pulsa de nuevo ENTER. Como ves, desaparece la línea 100 y el pro- 
grama está otra vez bien. 
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Poner el programa en marcha 


Si ahora aprietas la tecla | R RUN| $e escribe en pantalla RUN (eje- 


cuta el programa), y cuando pulsas otra vez [ENTER] me llega a mí la 
orden de ejecutarlo. Así que cojo la línea que tiene delante el número 


más pequeño (20) y hago lo que ahí pone; luego voy a la que tiene el 
número siguiente (40) y también la obedezco, y así hasta que llego a la 
última (80) y al obedecerla (STOP) me quedo parado. 


Un perrito faldero 


Con un programa puedo escribir frases, hacer cálculos o pintar. En las 
teclas de la fila superior llevo impresos unos símbolos gráficos. Estos 
dibujos pueden salir en la pantalla apretando la tecla correspondiente, 


antes me tienes que poner el c G CAPS ? 
pero que p ursor en G (pulsa SHIFT | Y sin 


GRAPHICS 
soltar, pulsa también ). Cada tecla puede dar lugar a dos 


M.. solo pulsarla, o bien > si pulsas a la vez CAPS |. 
las SHIFT 


Voy a decirte qué teclas debes apretar para programar el dibujo de 
un perrito. Si en la tecla figura un número, la debes apretar sin más, y si 


figura un número y la letra C, tienes que apretar| CAPS la la vez que 
' SHIFT 


la tecla del número. Recuerda que lo primero es poner el cursor en G. 


Línea 20: (4) 
Línea 30: 1) 1d) sg (4) [6) 
Línea 40: [89 


Línea 50: 


Línea 60: [SPACE] (60 (4) (6) 
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El programa quedará así: 
20 PRINT" Ñ 

329 PRINT" : 
40 PRINT * " 
59 PRINT " se 
689 PRINT " Ñ 
72 STOP 


Hay infinidad de dibujos que puedes hacer con este método; aquí 
tienes dos para que practiques. 


Si en algún momento tengo algo en la pantalla que te estorba para di- 
bujar, puedes decirme que lo borre apretando (Clear Screen, 


borra la pantalla) y [ENTER]. 
Si dispone de una impresora, cuando ya tengas el dibujo en la pan- 


talla, puedes pulsar Z ¿py y ENTER). Con la orden COPY copio la 


pantalla en papel sin que tú tengas que hacer nada. 
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-—+ 
| 


Fig. 3.2 


Fig. 3.3 
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RESUMEN 


Programa: 


¿(dos puntos): 


STOP: 
RUN: 


Gráficos: 


CES: 


COPY: 


es una lista ordenada de instrucciones. Cada 
instrucción va precedida por un número. 


separan dos instrucciones que figuran en una 
misma línea. 


detiene la ejecución del programa. 


orden que echa el programa a andar. 
GRAPHICS 


CAPS 
SHIFT 2] pone el cursor en la forma 


G y permite dibujar la parte oscura de los símbo- 


0 CAPS 
los de la fila superior; apretando| ¿fer | y 


la tecla del símbolo sale la parte blanca. Apre- 
GRAPHICS 


tando otra vez SE EN abando- 


nan los gráficos. 


borra la pantalla. 


copia la pantalla en papel. 


Variar una línea: basta escribirla de nuevo y pulsar (ENTER). 


Borrar una línea: basta escribir el número que la precede y 


pulsar (ENTER). 


4 
EL PESO CORRECTO 


LIST. LLIST. EDIT. NEW. 
El peso correcto 


Vamos a hacer un programa para calcular el peso ideal de un adulto. 
Una manera simplificada de lograrlo es tomar la estatura en centímetros 
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(entre 100 y 200 cm), restar 100 unidades y expresar el resultado en Kg. 
Para una persona que mida 168 cm será así: 


328 PRINT "Altura "; 168/1080 "m" 
40 PRINT "Peso ": 168-100; "Kg" 
54 STOP 


Si pulsas RUN y ENTER verás en la pantalla la altura y el peso, pero 
el programa desaparece. 


Ver el programa 


Para tener el programa otra vez en la pantalla, aprieta K List Y 


sale LIST ¡apretando luego te obedezco y vuelvo a escribir to- 
da la lista de instrucciones, para que la puedas ver. Puedes probar a orde- 
narme varias vecesseguidas RUN y LIST .Con LIST 40 pongosólo la 
lista de instrucciones desde la 40 para atrás. 


LLIST 
Si tienes una impresora, puedes hacer |V (LLIST está en 


verde) y luego [ENTER], y sacaré el listado por la impresora. 


Cambiar el programa 


Si ahora tienes ganas de calcular el peso de tu tía Concha, lo que 
haces es, 


12 indicarme que LISTe las instrucciones, 


EDIT 
22  apretar|l (baja una línea a la zona de edición), 


32 pulsar 


30 


En cuanto a mí me llega la orden EDIT, llevo a la parte inferior de 
la pantalla (zona de edición) la línea 30 y puedes cambiar el valor de la 
altura; luego pulsas| ENTER) y ya esta rectificada la línea 30. Pero pul- 

EDIT 


sando otra vez , vuelvo a llevar la línea 30 a la parte baja de la 


pantalla, y no la 40 que es la quieres cambiar. Para lograr eso, tienes 
que bajar la flecha que sigue al número 30 y situarla tras el 40; hazlo 


<> 
CAPS 6 
SHIFT 


al ordenar EDIT llevaré esta línea a la zona de edición, y podrás recti- 
ficarla. 


pulsando ¡as teclas . Con la flecha ya en la línea 40, 


Borrar el programa 


Cuando quieras escribir un programa diferente debes decirme que 


es nuevo (NEW , A O ), entonces borro la lista de instrucciones 


antigua y puedes ordenarme lo que quieras, sin temer que se mezcle con 
nada anterior. Compruébalo; pulsa NEw yluego LisT . Como vesel 
programa ha desaparecido. 
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RESUMEN 


LIS E: 


LLIST: 


LIST n: 


EDIT: 


muestra la lista de instrucciones que forman el 
programa. 


como LIST, pero saca el programa por im- 
presora. 


pone las líneas de programa con números ma- 
yores que n. 


extrae del programa una línea para poder al- 
terarla. 


desplazan la señal que indica cuál es la línea que 
se puede editar. 


borra el programa. 


>) 


PUEDO SER 
UNA CALCULADORA 


Operaciones. Orden de ejecución. T .Raíces y potencias. Notación ex- 
ponencial. 


Las operaciones elementales 


Las teclas que sirven para hacer operaciones aritméticas llevan gra- 
bado el símbolo de la operación en rojo (ya sabes que debes pulsar 


OS y la tecla correspondiente), y son las siguientes: 


Suma (+) 

Resta (—) 
Multiplicación (x) 
División (/) 
Potenciación 


Si quieres saber cuánto vale 754 X 83, debes escribir esto: 


PRINT 754 * B3 


En la parte superior de la pantalla aparecerá el resultado 62582. 
La tecla se usa para multiplicar un número por sí mismo, varias 
veces: 


por ejemplo, 35X35X35X35 = 35* 
en BASIC se escribe 3514. 

También puedes pedirme que haga varias operaciones con una sola 
orden; prueba 


PRINT 3+5*2 
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el resultado es 13, porque el orden en que efectúo las operaciones es 
siempre el mismo y me obliga a calcular primero 5*2, y luego sumar 3 
al resultado. Este orden de ejecución es el siguiente: 


Primer nivel: | (potencias) 
Segundo nivel: *,/ (multiplicación y división) 
Tercer nivel: +,—(suma y resta). 


Por ejemplo, con PRINT 3+5 | 2*4, primero calculo 5 12, luego 
multiplico el resultado por cuatro, y finalmente sumo tres. El resultado 
es la marca de un coñac. 


Cuando encuentro una fórmula con varias operaciones del mismo 
nivel, comienzo por las que están más a la izquierda; por ejemplo, para 
calcular 


4x2 | 3+7 | 2-3x5+6 


el orden en que efectúo las operaciones viene indicando por los números 
entre paréntesis 


000060 0 () 
4* 21 3+712-3*5+6 
(1) 4* 8 +712-3*5+6 


0)4* 8 + 49 —3*5+6 
(3) 32 + 49 —3*5+6 
(4) 32 + 49 — 15 +6 
(5) 81 = 15 $8 
(6) 66 +6 
(7) 72 


A veces este orden no es el adecuado para conseguir el resultado 
deseado. Así, cuando se quiere calcular: 


6 
2 +1 


si pulsas (6) 0) el resultado que saco 


en la pantalla es 4 en lugar de 2, que sería el correcto. Para que no ocurran 
estas cosas están los paréntesis; sirven para indicarme cuál es la primera 
operación que debo efectuar: será la que esté dentro del paréntesis. En 
el ejemplo anterior tendrás que teclear: 
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(PRINT] (6) (1) (9 (2) +) (Y) DJ (ENTER) 


los paréntesis están situados en las teclas 8 y 9, en rojo, por lo que hay 
que pulsarlos apretando a la vez la tecla SYMBOL |. 
SHIFT 


Para calcular la longitud de una circunferencia de radio 10 metros 
PI 


necesitamos el número Tr . Está sobre la tecla| M ; como está escrito 


en verde, debes apretar al tiempo CAPS y SYMBOL , y después de 
SHIFT SHIFT 
PI 
que el cursor esté en E aprietas la (sólo la M). Así puedes co- 


nocer ese valor que buscabas: 


PRINT 2 x Pl x 10 


También sé calcular raíces 


Para calcular raíces cuadradas tengo una tecla especial: 
SQR 


Para conocer la raíz cuadrada del número 25, tienes que escribir lo 
siguiente: 


[SQR] 25 (ENTER) 


Otra manera de calcular raíces cuadradas es empleando potencias. 
Para que escriba el valor de ./ 10, deberás escribir 


PRINT 10 1 (1/2) 
o también: 

PRINT 101 0.5 
o bien: 


PRINT 101.5 
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Para calcular raíces cúbicas, el exponente debe ser '/,; para y 20 
será: 


PRINT 201 (1/3) 


No estoy preparado para calcular potencias de base negativa. Si 
intentas calcular (—2) 1 3, en vez del resultado aparece el mensaje: 


A INVALID argument, 0:1 
Este inconveniente se evita calculando la misma potencia con base 


positiva, y después poniendo al resultado signo +, si el exponente era 
par, ó signo —, si el exponente era impar. 


Números grandes y pequeños 


El número mayor con el que puedo trabajar es 10%, que es un uno 
seguido de 38 ceros, y el menor 


10-38 que es 0”000.....1 


37 ceros 
Cuando los números tienen más de ocho cifras utilizo la notación 
científica para expresarlos; así para escribir cien millones, 100.000.000, 
pondré 1E+8; para que te resulte más claro piensa que 
100.000.000 = 1 * 10%, que yo represento por 1E + 8. 


Para escribir siete millonésimas 0000007, ten en cuenta que 


0000007 =7 * 10 7$ que represento como 7E—-6. 
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RESUMEN 


—../ 1: 


(,) (paréntesis): 


suma, resta, multiplicación, división y poten- 
ciación. La ejecución se realiza por niveles. 
Las potencias han de tener base positiva. 


permiten alterar el orden de ejecución de las 
Operaciones. 


raíz cuadrada. 


se emplea en la notación exponencial. El nú- 
mero que ayuda a expresar será mayor oO 
menor que uno, según E sea seguido por un 
número positivo o negativo. 
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COLORES 


Los colores. BORDER. PAPER. BRIGHT. INK. FLASH. 
Los colores de la pantalla: borde y papel 


En la pantalla puedes distinguir dos partes, un rectángulo central 
que es donde escribo y pinto, al que llamaremos papel, y alrededor el 
borde. Puedo poner el borde de ocho colores distintos: para el azul ma- 


rino pulsa (y) ENTER] , una tras otra. Cambiando el 1 


por otros números podrás ver las diferentes posibilidades que te ofrezco. 
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PAPEL 
BORDE 


Fig. 6.1 


Algo parecido puedes hacer con el papel; para eso está la tecla 


€ : ; LE 
. Para poner el papel en rojo, por ejemplo, pulsa la siguiente 


PAPER 
sucesión de teclas: 


BREAK] [SYMBOL SYMBOL]|| C 
SPACE || SHIFT SHIFT Cl ENTER) ¡ENTER 
a PAPER 


a la¡vez a la vez 


cursor E 


En lugar del segundo [ENTER] puedes pulsar| Y cs) ENTER 


que produce el mismo efecto (CLS, Clear Screen, borra la pantalla). 


Prueba a poner el borde magenta y el papel amarillo. ¿Te gusta?. Y 
al revés. ¿Cómo queda? 


Brillo 


Además, puedo poner cada color de papel de dos tonos diferentes, 


según me indiques que quieres brillo o no. Debes usar la tecla ; 


BRIGHT 
Con BRIGHT 1 (brillo 1) “enciendo” el brillo; con BRIGHT a (brillo 0) 
le “apago”. Haz las siguientes pruebas: 
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BORDER 3 ENTER : el borde se pone magenta. 
PAPER 3 ENTER] [ENTER] : toda la pantalla es magenta. 


BRIGHT 1 ENTER) (ENTER) : el centro (papel) de la pantalla se 
pone más claro. 


BRIGHT 0 ENTER] |ENTER] : desaparece el brillo y toda la pan- 


talla vuelve a ser del mismo color 
magenta. 


Tinta 


También puedes elegir el color de las letras con que escribo, para 


eso está la tecla ca La forma de decírmelo es pulsando: 
Ed] pao SYMBOL ¿aa 
Eta Pon Eon (4) (ENTER 


a la vez a la vez n* de la 
cursor en E tinta elegida 


te constestaré D OK, Q : 1, para indicarte que espero nuevas instrucciones 
y, desde ese momento, todo lo que me mandes escribir lo haré con la 
tinta del color que me has indicado. Prueba escribiendo: PRINT 


"BUENOS DIAS" [ENTER]. 


También puedes emplear líneas como éstas: 


14 REM BANDERAS 
24 BORDER 3 


30, PAPER 3: CLS 
40 PRINT INK 5; "La bandera de Andalucía es verde ": INK 7: 


"y blanca" 
50 PRINT INK 5; "La de Canarias es azul claro"; INK 7: 


"blanca": INK 6: " y amarilla" 
69 STOP 
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Además, puedes hacer con colores los dibujos que te propuse en el 
capítulo 3. 


Ya habrás encontrado-tintas que se leen poco sobre ciertos colores 
del papel; poniendo INK 9, yo elijo la tinta que contrasta más con el 


fondo, y por lo tanto se lee mejor. 


Parpadeo 
Si quieres que algún letrero o dibujo resalte mucho, puedes usar la 


vV 
instrucción FLASH WA , COMO aparece en este programa: 


FLASH 


10 FLASH 1 
20 PRINT "URGENTE" 


30 FLASH Y 
44 PRINT "o menos urgente" 


54 STOP 
o incluso en una sola línea: 


PRINT FLASH 1 "URGENTE ": FLASH Q "o menos urgente" 


Lo mismo que el brillo, el parpadeo se puede usar con colores 
cualesquiera de papel y tinta, y se enciende con 1 y se apaga con 0. 
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RESUMEN 


BORDER ob: 


PAPER p: 


BRIGHT b: 


INK i: 


FLASH f: 


pone el borde de la pantalla de color b (b de 
0 a 7). 


pinta el rectángulo central de la pantalla de co- 
lor p (p de 0 a 7). 


pone el rectángulo central de la pantalla bri- 
llante, si b es 1, o mate, si b es 0. 


prepara para escribir de color ¡ (i de 0 a 7). 
Con INK 9 se elige automáticamente la tinta 
que da mayor contraste. 


causa parpadeo si f vale 1; si f vale O se desac- 
tiva el parpadeo. 
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RECTAS Y CURVAS 


Dibujos geométricos. PLOT. DRAW. CIRCLE. 
Puntos 


El dibujo más sencillo que se puede hacer es el de un punto. Los 
puntos son todos iguales, y sólo hay que saber dónde ponerlos; eso se 
me dice con la instrucción PLOT seguida de dos números separados 
por una coma (luego tienes que apretar la tecla ENTER , claro). Prueba 
con unos cuantos pares de valores. 


Si aprietas Q PLoT| Y luego escribes £, A, pintaré un punto en la 


esquina inferior izquierda de la pantalla. Prueba luego PLOT 89,D y 
PLOT 2,87. Como ves, el primer número es la distancia del punto al 
margen izquierdo de la pantalla, y el segundo es la altura del punto. 
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(120, 130) 


(0,87) 


(80,0) 
Fig. 7.1 


Prueba PLOT 12, 1328. Como ves, este último punto está más a la 
derecha y más arriba que los otros. 


Se podría pensar que la parte de la pantalla en que tú puedes 
pintar está cubierta por pequeñas baldosas (pixels) ordenadas según 
filas y columnas, de manera que en cada fila horizontal hay 256 
baldosas, numeradas de 0 a 255, y en cada columna vertical hay 176, 
numeradas de 0 a 175. Cuando me dices PLOT 168, 158 yo sé que tengo 
que pintar el punto 160, 150, que está en la columna 160, fila 150. 


Fig. 7.2 


Segmentos 
Para que dibuje dos puntos, pon: 
PLOT 20, 20: PLOT 220, 120 
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Pero si lo que quieres es una recta que vaya del punto 20, 20 al 220, 
120, debes emplear la función DRAW: 


Fig. 7.3 
PLOT 22, 28: DRAW 20, 100 


Al leer DRAW 208, 189, sé que tengo que dibujar un segmento 
desde el punto 20, 20 hasta otro que está 200 baldosas más a la derecha 
y 100 más arriba. Haz pruebas con más valores, por ejemplo: 


PLOT 122,82: DRAW 58,98 


u otros. Si quieres que el final del segmento, en lugar de estar a la dere- 
cha del principio, esté a la izquierda, has de ponerle al primer número 
que sigue a DRAW el signo menos. Por ejemplo: 


PLOT 122,82 : DRAW — 10,90 
Prueba también con: 


PLOT 122,829: DRAW 19M, — 5D 
PLOT 120,89: DRAW — 180, — 58 


Igual que me puedes dar más de un PLOT, separándolos con dos 
puntos, puedes escribir más de un DRAW, por ejemplo: 


PLOT 18,18: DRAW 240,28: DRAW 2,160 : 
DRAW — 240,0: DRAW £, — 168 


o bien: 


PLOT 0,87 : DRAW 255.8: PLOT 127.0: 
DRAW 0.175 
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Circunferencias 


Si quieres dibujar una circunferencia, pulsa: 


CAPS | [SYMBOL] [SYMBOL 
SHIFT | | SHIFT SHIFT] L— 
A YAA A A ES 


al tiempo al tiempo 


y en la pantalla pondré CIRCLE. para que sepas que yo ya me he 
enterado; luego pones la situación del centro, dos números separados 
por una coma, y después el radio separado por otra coma. Empieza 
con: 


CIRCLE 120. 80, 20 


SU >. 


centro radio 


y luego varía el radio, dejando el centro quieto; después deja el radio 
quieto y varía el primer número del centro; cuando hayas hecho algu- 
nas pruebas con el primero, déjale quieto y varía el segundo. Ya te 
habrás dado cuenta de que los tres números tienen que ser positivos, y 
que no podemos salirnos de la pantalla dando valores muy grandes. 


Podemos emplear las circunferencias para pintar una cara con 
nariz, ojos, pupilas y boca. Puede ser así: 


29 CIRCLE 120, 118, 60 (Circunferencia exterior) 
39 CIRCLE 128, 118, 19 (Nariz) 

yA CIRCLE 90M, 130, 18 : 

59 CIRCLE 150, 130, 19 (Ojos) 

6M CIRCLE 90M, 125,3 (Pupilas) 


7M CIRCLE 158, 125.3 
89 PLOT 109.90: DRAW 40,0 (Boca) 
99 STOP 


Arcos 


Para dibujar trozos de circunferencia, tienes que saber cuál es el 
ángulo central que cubre ese trozo de circunferencia que necesitas. Si es 
toda, necesitas 360%; si es un cuarto, 90%, etc.; lo único que te puede 
resultar algo molesto es que no puedes decírmelo en grados sino en 
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radianes. Como ya sabes, una circunferencia, medida en radianes tiene 


A La 


T j 
—— radianes 
2 T radianes 


Fig. 7.4 


2 T radianes (=2 X 3'14=6”28 radianes); para pasar de grados a radianes 

puedes utilizar esta fórmula: 

(ángulo medido en grados) X 2 X T 
360 


= (ángulo medido en radianes) 


Si te basta media circunferencia, no tienes que usar CIRCLE, sino 
DRAW; diciéndome, además de cuántos puntos tengo que moverme en 
horizontal y en vertical, que dibuje un arco de T radianes. Por ejemplo: 


PLOT 28, 1909 : DRAW 290,0,3.14 


Fig. 7.5 
prueba también: 


PLOT 20. 18: DRAW 0, 110, 3.14 
PLOT 28, 10: DRAW 189, 70, 3.14 
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Como ves, ahora los extremos del segmento se unen con media 
circunferencia, que dibujo en sentido contrario al del movimiento de las 
manillas del reloj. Para que el sentido cambie, has de cambiar el signo 
del tercer número. 


PLOT 29.189: DRAW 189, 70, — 3.14 


Para que dibuje menos de media circunferencia, tienes que escribir 


menos de T ; por ejemplo, para un cuarto de circunferencia pones 1.57 
(=3.14/2) 


PLOT 100.0: DRAW 100, 10, 1.57 
en cambio, 
PLOT 180, 80: DRAW 50, 52, 4.7 


da tres cuartos de circunferencia. 


Lo mismo que se han empleado varios segmentos rectilíneos para 
un rectángulo, podemos empalmar varios trozos de circunferencia y di- 
bujar la concha de un nautilus (un molusco a medio camino entre el 
calamar y el caracol). Pon: 


PLOT 222.88 : DRAW — 178,2. — Pl : DRAW 120,0. — Pl: 
DRAW — 608,0, — Pl : DRAW 48,D, — Pl : DRAW — 26,0, — Pl : 
DRAW 16,8, — Pl : DRAW — 9,8, — Pl 


y pulsa (ENTER). 
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RESUMEN 


PLOT x, y: 


DRAW x, y: 


CIRCLE x 


dibuja un punto de situación (coordenadas) 
x —horizontal— e y —vertical—. 

— x puede valer entre 0 y 255 (0<x=<255) 
— y puede valer entre O y 175 (0<y<175) 


dibuja un segmento desde el último punto di- 
bujado hasta otro situado x unidades a su de- 
recha o izquierda e y puntos arriba o abajo. 


r: dibuja una circunferencia de centro en x, y 
y radio y. 


—Para los valores de x e y vale lo dicho en 
PLOT. 

—el valor de r no puede hacer que los puntos 
de la circunferencia se salgan de la pantalla 
(del ““papel””). 


DRAW x;,, y, 4: une el último punto pintado, de coordenadas 


x, y, con el punto x+y;, y + y,, mediante un 
arco de circunferencia de A radianes de am- 
plitud. 
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ALGORITMO 


Algoritmos. Diagramas de flujo. 


Algoritmo 


Tengo un primo que trabaja dentro de un ordenador de la NASA, 
y me ha contado que el programa del Skylab (el laboratorio orbital) 
tiene más de 400.000 instrucciones. Como te puedes imaginar, un pro- 
grama así lo han escrito muchas personas: unas reparten y coordinan el 
trabajo y otras se encargan de programar “pequeños” módulos que se 
interconectan después, formando el programa total. Para que este 
trabajo se pueda realizar adecuadamente, es necesario que todos lo que 
intervienen en él sigan unas ciertas reglas, para explicar por escrito qué 
hacen en cada momento, de manera que sea fácil, no sólo comprender 
qué han hecho, sino también localizar y corregir los errores. Desearía 
que aplicases las reglas de programación que siguen, porque si no lo 
haces te equivocarás una y mil veces, y me echarás la culpa a mí. 
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A continuación te explico cómo actuar para poner a lavar la ropa. 
En líneas generales, así es como hay que explicar las cosas para poder 
llegar, fácilmente, a tener un programa claro: 


Acercar la ropa y el detergente a la lavadora 

Abrir la puerta de la lavadora y la trampilla del detergente 
Meter la ropa por la puerta y el detergente por la trampilla 
Programar el lavado 

Encender la lavadora: 

FIN 


Cualquiera puede hacer un lavado sin más que seguir fielmente 
estas instrucciones. A esta descripción le llamamos algoritmo del lava- 
do. Un algoritmo es una descripción clara, concisa y detallada de un 
proceso, que permite realizarlo sin más que obedecer las instrucciones. 


Para preparar un programa que calcule áreas de triángulos, debes 
escribir: 


Entrar base y altura [base, altura] 
base X mun | 


Calcular área [ área = a 


Escribir área 
FIN 


Fíjate que el proceso general se descompone en varios procesos 
consecutivos, que en este caso se reducen a una acción cada uno; para 
describirlos se escribe una línea que comienza con un verbo, que subra- 
yamos para destacar el tipo de acción. 


Diagrama de flujo 


A veces, una descripción gráfica puede ser más clara en algún 
aspecto, sobre todo para reflejar la relación que hay entre los diversos 
módulos y la estructura del programa. La descripción gráfica de un 
algoritmo se llama diagrama de flujo u organigrama. 


También la representación de los diagramas de flujo debe ajustarse 
a ciertas reglas; por ejemplo, para el algoritmo anterior tendríamos: 
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PRINCIPIO (principio) 
base y 
altura 


área= 
baseXaltura 
2 


El (el ordenador facilita resultados) 
| 


Las elipses señalan el principio y el fin del proceso. Un rectángulo 
con el ángulo superior izquierdo matado significa que me das la infor- 
mación que necesito. Un rectángulo normal simboliza que opero, le doy 
valor a una variable o ambas cosas; y por último, un rectángulo de base 
ondulada quiere decir que te facilito información. 


(se dan datos al ordenador) 


(operación o asignación de valor a una variable) 


Fig. 8.1 


RESUMEN 


Algoritmo: descripción literal de un proceso. 


Diagrama de flujo (organigrama): descripción gráfica de un 
proceso. 
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PARTITURAS 


BEEP. Pentagramas. Notas musicales. PAUSE. 


Pitidos 


Si quieres oirme, escribe BEEP y luego dos números separados por 
una coma (,). Prueba con BEEP 1.1: tienes que apretar esta sucesión de 
teclas: 


CAPS ES SYMBOL aa SYMBOL NO) 
SHIFT ES SHIFT a LENTER ]) 


—= A 


al tiempo al tiempo al tiempo 
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Ahora deja uno de los números quietos y varía el otro poco a 
poco. Te guiaré: primero vamos a dejar quieto el segundo, empieza con 
BEEP 3.1, luego BEEP 6.1 y llega hasta BEEP 18.1 y luego BEEP 11,1. 
Los pitidos han sido cada vez más largos, hasta que con el número 11 
ya no he podido. El primero de los dos números es la duración del ruido 
en segundos. Puede tomar cualquier valor entre 0 y 10. 


Deja después quieta la duración y cambia el segundo número, 
prueba con BEEP 1,2 y BEEP 1.7: ¡fíjate que el segundo pitido es 
menos ronco!. Sigue poniendo números cada vez mayores: 


BEEP 1,15, BEEP 1,390, BEEP 1.49 


y el pitido será más agudo, hasta llegar un momento en que no lo oirás. 
Este segundo número, al que puedes llamar tono, puede valer has- 
ta 69.8. 


Si quieres oirme “en plan ronco”, puedes dar al tono valores 
negativos; cuanto más pequeño sea el número más ronco me quedaré. 
El valor menor que puedes dar es — 60. 


Las notas 


Ya estamos listos para interpretar música. La diferencia entre 
ruido y música estriba en que en la música los sonidos y el tiempo están 
bien combinados. 


Las notas musicales se escriben en el pentagrama. El nombre de 
cada nota depende del lugar en que esté situada. 


Fig. 9.1 
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La instrucción BEEP siempre va acompañada de dos números: el 
primero para indicarme la duración de la nota y el segundo si es más o 
menos aguda. Saber interpretar la partitura de una canción es justa- 
mente conocer la duración y el grado de agudeza de cada nota. La 
duración de las notas representadas en el pentagrama viene dada por su 
forma; cada nota dura el doble que la que tiene colocada a su derecha 
en la figura. 


oye 


redonda blanca negra corchea semicorchea 


Fig. 9.2 


Esto es: si fijamos para la redonda la duración de 1 segundo, la 
blanca durará 1/2 segundo, la negra 1/4 de segundo, la corchea 1/8 de 
segundo y la semicorchea 1/16 de segundo. 


En cuanto a lo agudo o grave de cada nota, debes mirar el lugar 
que ocupa en el pentagrama, cuanto más alta esté, más aguda es. Este 
pentagrama tiene, debajo de cada nota, el segundo número que debes 
poner en la instrucción BEEP. 


Fig. 9.3 


Esta es la partitura de la canción “Dónde están las llaves”: 
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y aquí tienes el listado de su programa: 


190 PRINT "Donde estan las llaves" 

20 BEEP 0.25,4: BEEP .25,5 

30 BEEP .5,7: BEEP .5,12 

40 BEEP .25.11: BEEP .25.,11: BEEP .25.9: BEEP .25,9 
5 BEEP .25.7: BEEP .25,7: BEEP .25,9: BEEP .25,11 
60 BEEP .25.12: BEEP .25.7: BEEP .25.,4: BEEP .25,5 
70 BEEP .5,7: BEEP .5,12 

80 BEEP .25,11: BEEP .25,11: BEEP .25,9: BEEP .25,9 


90 BEEP .25.7: BEEP .25,7: BEEP .25,9: BEEP .25,11 
100 BEEP .5.12 


110 STOP 


Ahora ya puedes hacer el programa para cualquier canción. ¡Pueba 
con ésta! 


ASERRIN 


Juán. El ma - ri - ne-ro en la  po- pa a - se - rran-do el bar-co es - tá. 


Los silencios 


El último signo que aparece en esta partitura no es una nota, es un 
silencio; sirve para indicarme el tiempo que debo estar callado. 
Cada nota tiene su silencio correspondiente, que dura lo mismo que 
ella. Para programar los silencios tengo una instrucción que se llama 
PAUSE, situada en la tecla de la M. Cuando en un programa pones 
PAUSE 50, estoy un segundo descansando, sin hacer nada de nada. 
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Silencios de: 


redonda blanca negra corchea semicorchea 
Fig. 9.4 


Si en una canción aparece un silencio, al programarla tendrás que 
poner: 


PAUSE 509 si el silencio es de redonda 
PAUSE 25 si el silencio es de blanca 
PAUSE 12.5 si el silencio es de negra, etc. 


RESUMEN 


BEEP d, t: da un pitido de duranción d, medida en segundos 
(duración de 0 a 10 seg.), y tono 1 (tono entre 
—60 y 69.8). 


PAUSE n: detiene la ejecución del programa durante n cin- 
cuentavos de segundo. 
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10 


LA COMPRENSION 
DE LOS PROGRAMAS 


Variables. LET. INPUT. REM. 
Las variables 


Veamos de nuevo el problema consistente en calcular el peso ideal 
de un adulto (Capítulo 4). Ya dijimos que una manera simplificada de 
calcularlo consiste en tomar la estatura en centímetros (entre 100 y 200 
centímetros), restar 100 unidades y expresar el resultado en kg. El 
algoritmo es éste: 
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l. Dar Altura 

2. Hacer Peso = Altura — 100 
3. Escribir Peso 

4. FIN 


Fíjate que en el algoritmo además de Escribir, hay otras acciones 
que dan valor a la Altura y al Peso; a esto se le llama asignar valor a 
una variable. 


Puedes pensar que Altura y Peso son dos jaulas donde guardas 
números: 


A 
LN 
== 


a a 
z dl 
AR 


Altura Peso 


Fig. 10.1 
a estas jaulas las llamamos variables numéricas. 


Empleando este nuevo concepto de variable numérica, el programa 
del Peso Ideal puede quedar así: 


20 LET Altura = 168 
40 PRINT "Peso = "; Altura — 10M: "Kg" 
50 STOP 


EJ 


La palabra LET quiere decir “sea”; se usa en las líneas 20 y 40 
para asignar valor a las variables altura y peso. En los ordenadores 
Sinclair hay que poner LET cada vez que se da valor a una variable. 
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Asignación cómoda (INPUT) 


Fíjate que el programa anterior calcula únicamente el peso ideal de 
personas muy particulares: ¡las que miden 168! Si quieres hallar el peso 
ideal de una persona que no mida lo mismo, tienes que cambiar la línea 
20. No es cómodo tener que listar, editar y reformar una línea de 
programa para dar valor a una variable; vamos a ver otra manera de 
hacerlo: 


Si en lugar de LET altura..., empleas INPUT altura, al llegar a esa 
instrucción detengo la ejecución del programa, pongo en pantalla dos 
comillas, como contraseña, y espero a que me indiques qué valor 
quieres que le.dé a la altura; cuando escribas un número y pulses 
asignaré ese número a la variable altura y continuaré la eje- 
cución. Eso es lo que hago al sustituir la antigua línea 20 por esta otra: 


20 INPUT Altura 


Puedes usar una orden INPUT para asignar valor a más de una 
variable; en este caso te iré preguntando qué valores deseas para cada 
una, hasta que todas ellas tengan valor, y no me conformaré si intentas 
dejar alguna vacía. Ensaya con este programa: 


20 INPUT b. a 

30 PRINT "El area de un triangulo de base ":b:" y altura ":a:" es 
":bxa/2 

40 STOP 


Las variables que siguen a INPUT pueden separarse con coma (,) o 
punto y coma (;). Sustituye las comas por puntos y comas en este 
último ejemplo y observa la diferencia. 


Saber qué es qué 


Fíjate que las salidas de los resultados son mucho más claras que 
las entradas, porque en las Órdenes PRINT ponemos rótulos que facili- 
tan la compresión de esos resultados. Igual podrías hacer con INPUT. 
Veamos un caso en que la claridad es vital: trabajas en una cantera y 
tienes que calcular los metros de mecha que pones a un barreno, en 
función de su velocidad de combustión (la de la mecha, claro): 
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40 INPUT "Velocidad de combustion de la mecha [m/seg)":vel 
69 INPUT "Metros: de mecha ":m 

89 PRINT "Tarda en hacer explosion 
199 STOP 


':"m/vel:" segundos". 


La documentación 


Hasta ahora hemos trabajado con programas muy cortos, por eso 
sólo has echado de menos los comentarios en las entradas y salidas de 
datos. Cuando el tamaño de los programas aumenta, y llenan varias 
pantallas, resulta muy agradable encontrar alguna que otra explicación 
en medio de las instrucciones. Para introducir un comentario en un pro- 
grama emplea la palabra REM (abreviatura de REMark, comenta- 
rio), como ves en este programa: 


10 REM Volumen de un cilindro 

20 REM Entran datos 

329 INPUT "Altura y radio de la base":h.r 

40 REM Calculo del volumen 

50 LET V=Plxr ] 2xh 

60 REM Sale el resultado 

70 PRINT "El volumen de ese cilindro es ":V 
82 STOP 


Cuando me llega la señal de que has pulsado la tecla correspon- 
diente a REM, te dejo escribir lo que quieras, en cualquier idioma, por- 
que sé que yo no voy a tener que leerlo después, que esos son mensajes 
para los humanos. Al ejecutar el programa, voy leyendo las líneas y en 
cuanto encuentro REM paso a la siguiente; por esto, cuando usas REM, 
en la misma línea no puedes continuar con otra instrucción. 


Prueba a poner título a todos los programas que has visto. Para 


ello puedes introducir una línea 18 REM..., seguida del título que cada 
uno se merezca. 
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RESUMEN 


Variable numérica: nombre simbólico donde podemos guar- 
dar un número. Puede ser una letra seguida o 
no por más letras o números, por ejemplo,a, 
arco, perso pl, p23, etc. 


asigna a la variable v el número X. 


Se usa para asignar valor a una o más variables, 
que irán separadas entre sí por coma (,) o punto 
y coma (;). 


Permite intercalar comentarios en el programa. 
El ordenador pasa de largo cuando se encuentra 
con ella. 
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11 
TRABALENGUAS 


Variables alfanuméricas. Suma de cadenas. INPUT LINE. 
Sumar palabras 


Prueba a decir muy deprisa: *“El arzobispo de Constantinopla está 
arzobispoconstantinopolizado, el  desarzobispoconstantinopolizador 
que lo desarzobispoconstantinopolizare buen desarzobispoconstantino- 
polizador será”. No puedes... Yo sí, pero te vas a aburrir recordándome 
la frase. Será más cómodo usar una variable para guardar lo que se 
repite. Ya has visto que, en lugar de andar arrastrando un número, lo 
puedes dejar en una jaula (en una variable), y usar la jaula cuando te 
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haga falta; el número está allí, esperando. Puedes hacer lo mismo para 
guardar una palabra o frase, solo que el nombre de la variable debe ser 
una letra (sólo una) seguida del símbolo $. Prueba con: 


LET a$ = "ana" : PRINT as [ENTER 


A este tipo de variables se les llama variables alfanuméricas, porque 
guardan signos del alfabeto y cifras, o cadenas, porque sus valores son 
cadenas de signos. 


Puedo sumar cadenas (juntarlas), y el resultado es una cadena más 
larga. Si escribes: 


LET a$ = "ana" : LET m$ = "maría" : PRINT a$ + m$ 


y pulsas [ENTER], la cosa queda clara. 


Sabiendo sumar cadenas se puede programar el trabalenguas. Pri- 
mero se escribe con cuidado en un papel, de forma que resalten las 
cadenas de letras que se repiten: 


EL ARZOBISPO DE CONSTANTINOPLA ESTA 


—— a "== 7 


a$ c$ 


ARZOBISPOCONSTANTINOPOLIZADO. QUIEN LO 
—róónóó5 TT A 
b$ =a$ + c$ + “OLIZA” 


DESARZOBISPOCONSTANTINOPOLIZARA? EL 
o > 
d$ = “DES” +b$ 


DESARZOBISPOCONSTANTINOPOLIZADOR QUE LO 
> > 
d$ 


DESARZOBISPOCONSTANTINOPOLIZARE BUEN 
=> rn 


d$ 


DESARZOBISPOCONSTANTINOPOLIZADOR SERA. 
—— a 2 
d$ 
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Como ves, se pueden emplear: 


a$ = "arzobispo" y c$ = "constantinop 


y luego crear 


b$ = a$ + cS$ + "oliza" 


d$ = "des" + b$ 
Con estas cuatro variables, el programa puede quedar así de corto: 


1MLET a$="arzobispo" 

20 LET cs$="constantinop" 

309 PRINT " El ":a$:" de ":c$:"la esta ": 

40 LET b$=aS+c$8+"oliza" 

50 PRINT b$:"do. Quien lo ": 

60 LET d$="des"+b$ 

78 PRINT d8:"ra ? El ":d$:"dor que lo ":d$:"re buen "d$:"dor sera." 


80 STOP 
y, diciéndome que lo ejecute, yo sacaré en pantalla esto: 


El arzobispo de constantinopla 
esta arzobispoconstantinopolizad 
O. Quien lo desarzobispoconstant 
inopolizara ? El desarzobispocon 
stantinopolizador que lo desarzo 
bispoconstantinopolizare buen de 
sarzobispoconstantinopolizador s 
era. 


Prueba con este otro trabalenguas: 


Pablito clavó un clavito, 
un clavito clavó Pablito. 


Fíjate que en pantalla pongo lo mismo cuando sumas dos palabras 
que cuando las separas con un punto y coma (;). Prueba este programa: 
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38LET AS="ABC" 
40 LET BS=DEF" 
50 PRINT A$+B5 
569 PRINT AS:BS 
70 PRINT AS,BS 
89 STOP 


Un símil que puede ser útil es imaginarse que la variable n$ es una 
pecera, y la variable n (que no lleva el símbolo $) es una jaula. Recuerda 
que no se puede poner un pez en una jaula ni un pájaro en una pecera. 
Si escribes: 


11 LET n= "casa" 


166 LET n$s=-= 123 


no lo admitiré. Una cosa que sí puedes hacer es poner en una variable alfa- 
numérica un número entre comillas; trata de sumar números así y verás 
qué pasa: 


1IMLET as="10" 

20 LET b$-"10" 

30 PRINT a$+b$ 
44 STOP 


Como ves, no eran diez unidades lo que había en a$ y b$, sino el símbo- 
lo del uno, seguido del símbolo del cero, y se comportan igual que si 
fuesen letras. 


Los problemas de las comillas en INPUT 


Si cuando estás asignando valor a la variable, te equivocas y, al 
borrar, borras también las comillas, deberás volver a escribirlas, porque 
de lo contrario no acepto el valor que me das. Para evitar este problema 
puedes emplear la instrucción INPUT LINE, que obtienes pulsando: 


1 CAPS | [SYMBOL] (SYMBOL 
weut) LSHIFT) USHIFT ] [SHIFT] 
———— A —-———= 


al tiempo al tiempo 
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Mira cómo reacciono cuando la usas en este programa: 


14 PRINT "Como te llamas ?2" 
20 INPUT LINE n$ 

30 PRINT "Hola ":n$ 

44 STOP 


Al llegar a la línea 20 espero que me digas cuál es tu nombre, como 
con INPUT pero sin poner comillas que puedas borrar por error; luego 
te saludo. 


El problema con INPUT LINE es que no se puede usar para 
variables numéricas, sino sólo para palabras y, además, que no admite 
letreros, al contrario que INPUT. 


RESUMEN 


Variable alfanumérica (o cadenas): son variables cuyos va- 
lores pueden ser palabras o cadenas de símbo- 
los cualesquiera. 


una nueva variable alfanumérica formada por 
todos caracteres de a$ seguidos de los de b$. El 
nombre técnico es concatenación. 


INPUT LINE: Asigna valor a una o más variables alfanuméri- 
cas. No permite insertar comentarios. 
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12 


ALMACENANDO 
PROGRAMAS 


SAVE. LOAD. VERIFY. FORMAT. CAT. ERASE. 
Guardar un programa 


Cada vez que me desenchufas olvido el programa, y cuando es lar- 
go resulta aburrido teclear todas las instrucciones. Para evitar esto, te 
voy a explicar cómo se guardan los programas en una cinta magnetofó- 
nica (cassette) de las que se usan para grabar canciones. Necesitas un 
magnetófono, una cinta virgen y los cables de conexión que vienen en 
la caja. 


Enchufa uno de estos cables en la entrada MIC del magnetófono 
por un extremo, y por el otro en la salida marcada con MIC que está en 
mi parte de atrás; y pon el volumen casi al máximo. :-Ahora vamos a 
guardar el programa “cara” del Capítulo 7. Lo primero que tienes que 
hacer es escribírmelo; después escribe SAVE "cara" y pulsa ENTER. 
Pondré en la pantalla el mensaje siguiente: 


Start tape. then press any key 
ahora aprieta las teclas PLAY y RECORD del magnetófono y después 


cualquiera de mis teclas. En este momento empiezo a grabar el progra- 
ma. Al terminar, escribo el mensaje: 


GOkK.0:1 


Cargar un programa 


Una vez grabado el programa en la cinta, desenchúfame. Al desper- 
tarme puedo recuperar el programa si sigues estas instrucciones: 
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primero, coge el cable que no conectaste antes y enchúfale por un extre- 
mo en mi entrada EAR, y por el otro en la salida del cassette marcada 
con EAR, MONITOR o SPEAKER. No es recomendable que los dos 
cables estén conectados a la vez, pues pueden producirse interferencias 
que dan lugar a errores de grabación. Luego rebobina la cinta hasta el 
principio del programa; localizarlo exactamente no es fácil, por eso 
resulta útil grabar con tu voz el nombre del programa y cuantas aclara- 


ciones creas oportunas acerca de él. A continuación, pulsando J LOAD' 
escribe: 


LOAD "cara" 


y pulsa [ENTER]. Al poner en marcha el cassette, apretando la tecla 
PLAY, busco el programa y lo cargo; al terminar te aviso con el men- 


saje M OK. 


Si pones LOAD "" , cargo el primer programa que encuentro. 


Carga con ejecución inmediata 


Si quieres impresionar a tus amigos, podemos guardar algún juego 
o programa que realices, de manera que cuando lo cargue empiece a 
funcionar automáticamente. Lo único que tienes que hacer es indicar- 
me, en el momento de grabarlo, a partir de qué línea he de empezar a 
funcionar. Si quieres que dibuje automáticamente la cara, no vale la 
grabación anterior, me debes dar el programa e indicar: 


SAVE "cara" LINE 14 
y proceder a grabar. Cuando posteriormente me digas: 


LOAD "cara" 


buscaré este programa, lo cargaré y lo ejecutaré a partir de la línea 10. 
Si guardas la cara con: 


SAVE "cara" LINE 48 


sólo saldrán en la pantalla los ojos y la boca, que se dibujan en la línea 
40 y siguientes. 
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Comprobar la grabación 


R | 
Existe la orden verte que comprueba si el progra- 


VERIFY 

ma ha sido guardado bien; esto es, si la grabación de la cinta y el pro- 
grama que tengo en la memoria coinciden. Para usar este comando 
tienes que colocar el cable como para LOAD y rebobinar la cinta hasta 
el comienzo de la grabación; seguidamente, pulsa VERIFY y escribe 
entre comillas el nombre del programa; cuando pulsas ENTER y aprie- 
tas la tecla PLAY del cassette, comienzo a buscar el programa, y 
hasta que lo encuentre te iré enseñando el nombre de todos los progra- 
mas que hay en la cinta. Cuando llegue al que quieres verificar apare- 
cerán las mismas rayas azules y amarillas que aparecían cuando le 
grabé, y si la verificación resulta positiva te mostraré el mensaje: 


0:1 OK 
Si algo ha funcionado mal, te enseñaré este otro: 


TAPE LOADING ERROR 


En este caso comprueba si el nombre del programa está bien 
escrito y también cambia el volumen del cassette. Repite el VERIFY, y 
si no sale el mensaje OK, vuelve a grabar el programa que aún está en 
mi memoria y repite el uso de VERIFY. 


El microdrive 


Si pones a mi disposición un microdrive, es muy importante que 
sigas al pie de la letra las instrucciones del Manual, tanto para su insta- 
lación, como para su uso; en particular, no nos enciendas o apagues 
nunca con un cartucho dentro del drive. Al introducir en el microdrive 
el cartucho de demostración que le acompaña, puedes pedir: 


CAT 1 
y te enseño su catálogo (lista de programas guardados en él) y el núme- 
ro de Kbytes disponibles para almacenamiento. Este catálogo se ordena 
alfabéticamente y le caben hasta cincuenta nombres distintos de progra- 
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mas y ficheros. Como puedes conectarme varios drives, es necesario que 
me indiques por su número a cuál te refieres; si sólo tienes uno, pon- 
drás forzosamente ese número. 


Cuando tengas un cartucho nuevo o quieras borrar la totalidad de 
uno usado, debes decirme: 


FORMAT "m":1:"nombre" 


donde "m":1; indican que debo borrar y preparar para grabaciones 
posteriores el microdrive 1. Después aparece "nombre", o cualquier 
otra palabra con la que desees distinguir éste cartucho; la longitud má- 
xima de esta palabra es diez letras. 


Las otras instrucciones que te he explicado, para trabajar con 
cassettes, siguen siendo válidas ahora. La única diferencia está en la 
sintaxis; para trabajar con el programa “cara”, por ejemplo, debes es- 
cribir alguna de las líneas siguientes: 


SAVE *"m":1l:"cara" 

SAVE x*x"m":;1l:"cara" LINE 184 
VERIFY *"m":;1l:"cara" 
LOAD *"m":1l:"cara" 


Como ves, la diferencia se reduce a intercalar x "m":1: entre la instruc- 
ción que deseas ejecutar y el nombre del programa. 


Borrar programas 


Los programas almacenados en una cassette se pueden borrar sin 
más que grabar otros encima. En el microdrive no puedo hacer lo mis- 
mo, si quieres borrar un programa debes indicarme cuál es. Para borrar 
el programa “cara” dime: 


ERASE "m";1l:"cara" 
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RESUMEN 


SAVE “nombre””: graba el programa en cinta. El nombre del 
programa puede tener hasta diez letras. 


LOAD “nombre”: carga de la cinta el programa perdido. 
LOAD **” carga el primer programa que encuentra. 
SAVE “nombre” LINE n: graba el programa indicado para su 


ejecución automática desde la línea n en ade- 
lante. 


VERIFY “nombre”: compara el programa con ese nombre 
que hay grabado y el programa en la memoria. 


CAT n: facilita el catálogo del cartucho presente en el 
drive n. 


FORMAT “m”;n;“XX”: formatea el cartucho presente en 
drive n y le asigna el nombre XX. 


ERASE “m”:n;:*XX”: borra el programa o fichero XX del 
cartucho presente en el drive n. 


SAVE *“m”:n;“XX””: graba el programa XX En el cartucho 
del drive n. 


SAVE *“m*;n;XX” LINE k: análogo a SAVE... LINE. 


VERIFY *“m”;n;*XX”" análogo a VERIFY. 


LOAD +*“m”:n;*XX”: análogo a LOAD. 
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OO IAE e. 


13 


MEJORANDO 
LA ESCRITURA 


PRINT TAB. PRINT AT. INVERSE. Comillas. Apóstrofe. LPRINT. 
Para moverse en la línea 


Como ya sabes, en cada fila de la pantalla caben 32 letras (hay 32 lu- 
gares, numerados de 0 a 31). Sin embargo, cada vez que me pides que escri- 
ba un número o una palabra lo hago comenzando en el margen izquierdo, 
en la columna cero. Puedes probar con: 


14 PRINT "Cebolla" : PRINT 32 
24 STOP 
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y tendrás esta pantalla: 


Cebolla 
32 


Fig. 13.1 


Si quieres que empiece a escribir en otro lugar de la fila, por ejemplo el 


12, tienes que intercalar TAB (12). (La función TAB está en la tecla 
TAB 


e) Reforma el programa anterior, así: 


18 PRINT TAB (12):"Palabra" 
15 PRINT TAB (5):32 
28 STOP 


a ver qué pasa. (Fíjate en el punto y coma que hay en medio de la ins- 
trucción.) 


En una línea de programa puedes escribir más de una orden PRINT 
TAB, como ocurre en este programa: 


39 PRINT TAB (5):"Alto":TAB (15):"Bajo" 

59 PRINT TAB (5):"Gordo":TAB (15):"Flaco" 

92 PRINT TAB (4):"Rubio":TAB (12):"Moreno":TAB (22):"Pelirrojo" 
128 STOP 
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El resultado será el siguiente: 


01234567809 xIC o A 


Fig. 13.2 


Como puedes observar, cuando hay más de un TAB, el número que 
figura en el segundo es lo bastante grande como para que las dos palabras 
no coincidan en los mismos lugares. Si coincidiesen, como la función TAB 
me permite desplazar el texto hacia la derecha pero no hacia la izquierda, 
la segunda impresión la haría una línea más abajo; así, con la línea 


19 PRINT TAB (7):"Elefante":TAB (8):"Cebu" 
no escribo ““Ecebunte”, como podrías pensar, sino 


0123456789 AAA 


Viajando por la pantalla 
Con Print TAB puedes elegir el lugar de la fila en que empiezas a escri- 


bir (la columna). Para elegir no sólo la columna, sino también la fila, tienes 
que emplear la instrucción siguiente: 


PRINT AT n? de fila, n2 de columna; texto 
Así, por ejemplo, si escribes 
PRINT AT 10,20:"Hola" 
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y pulsas ENTER , verás que la palabra HOLA aparece en el centro de la 
pantalla, en la fila 10 (que es la undécima) y con la primera letra en el lugar 
20 (el vigésimoprimero). Igual que ocurría con PRINT TAB, puedes poner 
más de un PRINT AT en una línea de programa. 


Prueba a pasar este programa: 
20 PRINT AT £2,13:"Norte":AT 21,14:"Sur" 


30 PRINT AT 10,0:"Oeste":AT 18,27:"Este" 
ya STOP 


Letreros que resaltan 


Como ves, distribuyo las palabras convenientemente en la pantalla. 
Pero si te parece que están poco destacadas, puedes resaltarlas empleando 
la instrucción INVERSE. Esta orden me indica que debo escribir cam- 
biando el color del papel y de la tinta, cuando aparece INVERSE 1, y vol- 
ver a escribir normal cuando aparece INVERSE 8. Prolonga el programa 
de los puntos cardinales con la instrucción siguiente: 


14 INVERSE 1 


HORTE 


QESTE ESTE 


Fig. 13.4 


También puedes añadir la línea 


25 INVERSE Q 
y verás que en la línea que sigue a ésta, la 30, escribo normal. 
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Si quieres que salga una frase entre comillas, por ejemplo: 
El sheriff dijo: “Sal de la ciudad, forastero” 
debes escribir esto: 
190 PRINT "El sheriff dijo:""Sal de la ciudad forastero""" 
Cuando pulses RUN y ENTER, pondré en pantalla: 
El sheriff dijo: "Sal de la ciudad forastero" 


Fíjate que las comillas dentro de comillas han de ser dobles y, además, 
tienes que cerrar tantas comillas como hayas abierto. 


Tengo también una instrucción para separar las líneas de escritura 
entre sí a tu gusto, está en la tecla es una especie de acento en 
rojo que apenas se ve (apóstrofe). 

Si tienes el programa: 


18 PRINT "Pedro" 
20 PRINT "Juana" 


y quieres que entre Pedro y Juana queden tres renglones en blanco, no tie- 
nes más que escribir la línea 


15 PRINT!'*" 


Para aclararnos: con cada apóstrofe que encuentro me salto una 
línea. 


Puedes usar las nuevas instrucciones que acabo de mostrarte con la 
impresora, sólo es necesario que cambies PRINT por LPRINT. La úni- 
ca que no funciona es LPRINT AT (y no es culpa mía, es cosa de la 
impresora). 
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RESUMEN 


PRINT TAB (Cc); p3: escribe p a partir del lugar c. c puede to- 


mar valores desde O hasta 40 (para valores ma- 
yores del 31 escribe en la fila siguiente). 
Vale también para escribir números. 


PRINT AT'f, c; p3: escribe p3 a partir del lugar c de la fila f. 


INVERSE 1: 
INVERSE 0: 


Comillas: 


Apóstrofe: 


LPRINT: 
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Vale también para escribir números. 
permite escribir en inverso. 

permite volver a escribir normal. 

deben ser dobles cuando van dentro de otras 
comillas. Hay que cerrar tantas como se hayan 
abierto. 

sirve para escribir en el reglón siguiente, se 


pueden poner tantos como líneas se quieran 
saltar. 


escribe en el impresora. Se comporta como 
PRINT, pero no obedece la partícula AT. 


14 
REPETICIONES 


FOR-NEXT. scroll. 
Muchos saludos 


Todos los programas que me has encargado hasta ahora han consisti- 
do en hacer algo (escribir, calcular, pintar, etc.) una sola vez; pero es fre- 
cuente tener que repetir una misma tarea varias veces. Si, por ejemplo, 
quieres que te salude quince veces, puedes darme otras tantas líneas igua- 
les, pero es más cómodo emplear el algoritmo siguiente: 


Entrar nombre (N$) 
Repetir 15 veces 
Escribir “Hola”; N$ 


Siguiente vez 

FIN 

No basta indicar que se repite algo, hay que señalar dónde acaba lo 
que se repite; para eso se pone “Siguiente vez”. Además, lo que se re- 
pite lo debes escribir más a la derecha. 


El diagrama de flujo asociado a este algoritmo es éste: 
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PRINCIPIO 


Estas dos figuras: 


aparecen siempre juntas; señalando que todo lo que haya entre ellas se 
repite tantas veces como se indique en la primera. 


Las instrucciones BASIC que se corresponden con estas figuras son 
las siguientes: 


y FOR | =1T0O 15 [para | de 1 a 15) 


EN NEXT | (siguiente 1!) 


Fig. 14.3 


Las instrucciones FOR y NEXT siempre van asociadas. Vamos a 
hacer un programa de saludo y luego te explico cómo las uso. El pro- 
grama es así: 


14 REM Saludos 

24 INPUT "Como te llamas":N$ 

34 REM Repetir el saludo 15 veces 
44 FOR I=1 TO 15 

54 PRINT "Hola":NS 

64 NEXT | 

74 STOP 


Cuando pulsas [ RUN ]y [ENTER] empiezo a ejecutar el programa: 
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paso de largo por el título, 

te pido el nombre, 

paso de largo por otro comentario, 

preparo un contador (la variable I, con una sola letra) y le doy el 
valor 1, 

escribo “Hola”, seguido de tu nombre, 

aumento el valor del contador en uno (I pasa a valer 2) y lo com- 
paro con 15; si Il no es mayor que 15, vuelvo a escribir el saludo, a 
aumentar el valor del contador (I pasa a valer 3) y lo comparo con 
15, ...así hasta que l valga 15, y al aumentarlo, y pasar a valer 16, 
ya puedo parar de saludar. 


P2un-_ 


EA 


El contador 


Un programa sencillo, pero que aclara esto, es el que hace lo 


siguiente: 
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Repetir 3 veces (Contador I) 
Escribir el contador (1) 

Siguiente vez 

Escribir “Al final el contador vale”; 

FIN 


PRINCIPIO 


En BASIC queda así: 


14 REM Estudio del contador 

20 FOR |=1 TO 3 

309 PRINT 1:"-"; 

44 NEXT | 

50 REM Valor final del contador 

59 PRINT "Al acabar de repetir | vale":! 
784 STOP 


Puedes EDITar la línea 20 y sustituir 3 por otros números, por ejem- 
plo, 100; y ver qué valores doy a I. Si en lugar de 3, pones 200 ó números 
mayores, no caben en la pantalla todos los valores de I, y pongo un 
mensaje: 


scroll? 
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para que me indiques si quieres ver más o no: si tocas la tecla N es que 
ya no quieres más; si tocas otra, continúo poniendo valores. Pruébalo. 


RESUMEN 


FOR-NEXT: sirve para indicar que una acción se ha de re- 
petir cierto número de veces. 


scroll?: solicita permiso para exhibir la siguiente pan- 
talla. 


Los contadores se representan con una sola letra. 


92 


I5 
INTERES 


Variables en los parámetros FOR-NEXT. STEP. 
Tabla de sumar 


Puedes usar la instrucción FOR-NEXT para escribir la tabla de 
sumar, sólo tienes que hacer esto: 


Entrar un número (Número) 
Repetir 11 veces (1 de O a 10) 
Escribir Número;**+”:;1;*="”".Número+I 
Siguiente vez 
FÍN 
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Desarrolla tú el diagrama de flujo, que así te entrenas. El 


programa resultante es: 


14 REM TABLA DE SUMAR 

20 INPUT " De que numero deseas la tabla": Numero 
38 REM ESCRIBIR LA TABLA 

44 FOR l= 0 TO 10 

50 PRINT Numero:"+":1:"=":Numero+! 

64 NEXT | 

74 STOP 


Como ves, en la línea 20 tomo un valor para la variable Número, 


escrita con todas las letras para que sea más fácil de reconocer; sin 
embargo, al contador del ciclo, I, hay que llamarle con una sola letra. 


Interés 


Es posible calcular el crecimiento de un dinero puesto a rédito 


constante durante un cierto número de años. Sólo tienes que seguir los 
pasos que indica este algoritmo: 
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Entrar capital, rédito y años 
Hacer interés = interés/100 (pasar de interés por 100 ptas. a interés 
por peseta) 
Escribir encabezamiento 
Repetir N veces (tantas veces como años esté el capital producien- 
do interés) 
Hacer el capital igual al capital más el interés 
Escribir año, capital 


Siguiente vez 
FIN 


El diagrama de flujo asociado es así: 


PRINCIPIO 


capital 
interés 
años 


interés = interés/100 


Encabe- 
zamiento 


(1) 


Tantas 
veces 
como 
años 


capital = capital + 
capital * interés 


(2) 


Fig. 15.1 


Normalmente se habla del rédito, que es el interés producido por 
100 pesetas (%), lo dividimos por 100 (1), para conocer el interés produ- 
cido por cada peseta; en (2) se multiplica éste por el capital, para cono- 
cer el interés que produce todo él. Este interés, sumado al capital que 
había a principio de cada año, nos da el capital al final del año, como 
aparece en (2). El programa quedará así: 


18 REM Crecimiento de un capital 

220 INPUT " Capital.interes(%),anos":capital.interes.anos 
32 REM Pasar de interes por 180 pts a interes por 1 pta 
40 LET interes=interes/120 

50 REM Encabezamiento 

60 PRINT "Anos","Capital": PRINT 

70 REM Tabla de valores 

89 FOR N=1 TO anos 

90 LET capital=capital+capital*+interes 

1089 PRINT N,capital 

1190 NEXT N 

120 STOP 


Estudio general del contador 


En el capítulo anterior hay un programa que se llama “Estudio del 
contador”, úsalo otra vez cambiando la línea 20 por esta otra: 


28D FOR |= 1 TO3STEP 2 


El número que sigue a la palabra STEP (aumento) puede tomar 
otros valores; prueba con 0.5. 


Los tres números que figuran en este tipo de instrucciones pueden 
tomar el valor de una variable, como puedes ver en esta nueva versión 
del “Estudio del contador”: 


10 REM Estudio general del contador 

22 INPUT " Valores extremos del contador";inicial,final 
329 PRINT "Valores extremos":PRINT inicial:"y":final 
48 INPUT "Aumento":aumento 

52 PRINT "Aumento",aumento 

609 FOR I=inicial TO final STEP aumento 

7DPRINT 1:"-":; 

898 NEXT | 

92 PRINT:PRINT "Valor tras el ciclo":! 

108 STOP 
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Escribe el programa y verás que los números que controlan el ciclo 
pueden tomar no sólo valores decimales, sino también negativos. 


RESUMEN 


STEP: indica cómo variar el contador en el ciclo FOR- 
NEXT. 


FOR N=[]TO[]STEP[]:los rectángulos se pueden lle- 
nar con constantes o variables. 


El índice que actúa como contador en un ciclo FOR-NEXT 
debe tener por nombre una sola letra. 
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16 
READ-DATA 


READ. DATA. RESTORE. 
Leer Datos 


Ya sabes darme datos con la instrucción INPUT. Este programa 
sirve para escribir cinco nombres de personas con su correspondiente 
número de teléfono: 


5 REM Agenda de 5 

1M PRINT "Escribe el nombre de cada amigo. pulsa ENTER. pon su 
numero de telefono y vuelve a pulsar ENTER" 

20 FOR i=1 TO5 

30 INPUT a$:n 

40 PRINT as:n 

50 NEXT i 

58 STOP 


Pero tiene dos inconvenientes: 


12: Cada vez que lo ejecuto tienes que teclear todos los nombres y 
todos los números, y si te confundes en algo hay que volver a 
empezar desde el principio. 

2%: Yo me aburro esperando los datos y se pierde mucho tiempo. 


Para evitar estos inconvenientes están las instrucciones READ y 
DATA; con ellas leo los datos directamente desde el programa. Siem- 
pre que en un programa hay una instrucción READ (lee), tiene que 
haber alguna instrucción DATA donde esté depositado el dato que 
debo leer. Por ejemplo, con el programa: 


1U READ A 
208 PRINT A 
3DDATA 8 
48 STOP 
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escribo 8 en la pantalla; y con este otro 


1MDATA "LUNA" 
20 READ A5 

39 PRINT AS 

48 STOP 


escribo LUNA. Así pues, me valen para leer números o palabras; pero 
además debes observar que funcionan correctamente, tanto si está el 
dato almacenado al final del programa, como si está al principio; por 
motivos de orden y claridad, no es recomendable poner las líneas 
DATA en otros lugares. 


Leer varios datos en un programa 


En un programa puedo leer varios datos, prueba con: 


1MDDATA "Paco","Anton","Luis" 
20 FOR ¡=1 TO 10 

30 READ a5 

40 PRINT as 

50 NEXT i 


cuando ejecuto este programa, leo el primer nombre, y anoto que he 
leído el primero, cuando vuelvo a pasar por la línea 30 y tengo que leer 
otro, ya no leeré el primero, sino el segundo y anoto que he leído los 
dos primeros; así continúo hasta que me encuentre sin datos que leer y 
con la necesidad de leer alguno, entonces pondré un mensaje: "E Out of 
DATA 30: 1". 


Para leer varios datos desde una línea 


Desde una línea READ puedo leer tantos datos como quieras, así 
READ A,B- leerá dos números que deben estar en una línea DATA 
separados por una coma (,); en cambio READ AS, B$ buscará dos pa- 
labras también separadas por una coma. Se pueden mezclar variables 
numéricas y alfanuméricas en las líneas READ-DATA, pero tienes que 
ser cuidadoso con la escritura de estas últimas, porque si en algún 
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momento tengo que leer una variable numérica, y el primer dato que 
tengo disponible en la lista (DATA) es una palabra, o al revés, daré un 
mensaje de error y pararé la ejecución. 


Fíjate en el siguiente programa: 


5 REM Poligonos 
1MDATA "lados" 

20 DATA "Triangulo",3 
38 DATA "Cuadrado",4 
48 DATA "Pentagono",5 
58 READ A$ 

60 READ B8,p 

7M READ C3.q 

89 READ D3.r 

909 PRINT B$S:" ":p:" "¿AS 
100 PRINT CS$:" ":q:" "¿AS 
110 PRINT DS:" ":r:" "¡AS 
120 STOP 


Este programa en la línea 50 me manda leer una variable de cade- 
na, que yo encuentro en la instrucción 10, ya sé que A$= “lados”. En 
la línea 60 me manda leer dos variables, la primera de cadena, y la 
segunda numérica, las encuentro en la línea 20, ya sé que B$ =""Tri- 
angulo” y que p=3, y así sucesivamente. En la pantalla escribiré: 


Triángulo 3 lados 
Cuadrado 4 lados 
Pentágono 5 lados 


No puedes olvidarte de poner las variables alfanuméricas entre 
comillas cuando las escribas en las líneas DATA. 


Este programa quedaría más corto usando un ciclo FOR-NEXT; 
para ello sólo tienes que cambiar las líneas desde 60 hasta 110 por éstas: 


6DFORI=1TO3 

70 READ EfS.n 

80 PRINT ES:" ":n:" "¿AS 
90 NEXT | 
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Lectura repetida 


Hasta ahora, los datos sólo se pueden leer una vez; tras leerlos “se 
gastan”. Vamos a ver cómo se pueden “regenerar”. Programaremos mi 
trabajo de manera que escriba “Abajo”, “Arriba”, “Abajo”, “Arriba”, 
...hasta diez veces; lo que has de escribir es lo siguiente: 


10 REM Regeneracion de datos 
15 FOR i=1 TO 10 
20 READ p$ 
30PRINT ps:" ": 
48 READ q$ 

5D PRINT q$:" ": 
69 RESTORE 

70 NEXT i 

102 DATA "Abajo" 
MBDATA "Arriba" 
2080 STOP 


Como ya sabes, al ejecutar este programa leo y escribo cada una de 
las dos palabras; pero al leer la segunda (línea 50), los datos se ago- 
tan. El puntero que me indica cuál es la última palabra leída indica 
la segunda. Lo nuevo de este programa es la instrucción RESTORE 


RESTORE 
(5) que vuelve a poner el puntero delante de la primera pala- 


bra; así resulta posible leer las dos palabras todas las veces que se 
quiera. 


Si borras la línea 15 y añades estas otras 


35 FOR i=1 TO 18 
69 RESTORE 112 


resulta que cuando las palabras se agotan, el puntero se pone delante de 
la línea 110, con lo cual se repite sólo la palabra que está en esa línea. Si 
detrás hubiese más líneas DATA, también se repetirían; son las de 
delante las que no lo hacen. 
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RESUMEN 


DATA: 


READ: 


RESTORE: 


RESTORE mn: 


encabeza una línea en la que hay datos al- 
macenados. 


orden de lectura de datos. Esta orden va 
asistida por un “puntero” que indica cuál será 


el siguiente valor leído. 


regenera los datos, permitiendo una nueva 
lectura. 


regenera los datos, pero sólo los almacenados 
en la línea n y en las posteriores a ella. 
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17 
CURVAS 


Representación de curvas. Ejes de coordenadas. Cambios de escala y de 
origen. Funciones matemáticas. 


Representación de curvas 


Puedes usar la instrucción PLOT junto con FOR-NEXT, para 
dibujar muchos puntos. Si eliges los puntos bien, dibujaré curvas. La 
cosa es muy sencilla, y además te puede ayudar a conocer alguna de las 
funciones que figuran en el teclado, por ejemplo, la función seno 


SIN 
(E) .En muchos libros de matemáticas podrás encontrar una 


explicación de las funciones seno, coseno y tangente, y de los radienes, 
medida de ángulos que empleo para trabajar con ellas. Como la función 
seno puede tomar valores negativos, el punto (x, sen x) a veces queda 
fuera de la pantalla; será mejor sumar 80 a todos los valores del seno. 
Lo que tengo que hacer es: 


Repetir 256 veces (x de O a 255) 
Hacer y = 80 + seno x 
Dibujar x, y 


Siguiente vez 
El programa resulta ser: 


10 REM seno 1 

1000 REM Representacion 
1010 FOR x=D TO 255 
1020 LET y=80 +sin x 

1038 PLOT x.y 

1040 NEXT x 

2000 STOP 


Si pulsas [ RUN ] y [ENTER], pondré en pantalla la representa- 
ción gráfica del seno x, que va a parecer una cenefa bordada. 
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O O E O O 


Fig. 17.1 


Echarás de menos dos cosas: que se vean los ejes de coordenadas, 
para tener una idea clara de los valores de la función; y que la curva sea 


más grande. 


Para que dibuje los ejes puedes intercalar estas líneas: 


180 REM seno 2 


110 REM Ejes 
128 PLOT 8,2: DRAW 8,175:PRINT AT 9, 1:"y" 
138 PLOT 2,80: DRAW 255,8:PRINT AT 11, 31:"x" 


Así ya hay ejes. Si quieres también que la curva sea mayor, sustitu- 
ye la antigua línea 1020 por ésta: 


1020 LET y=80 + 30*sin (x/30) 


En el paréntesis se divide el valor de la x por 30, tardaré 30 veces 
más en completar un ciclo (en realidad lo que se ha hecho es multiplicar 
por 30 la unidad de longitud en la dirección horizontal); y al multipli- 


car 30x sin (x/30) se multiplica también por 30 en la dirección vertical. 
Prueba el programa con este valor. 


Fig. 17.2 
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Si te parece grande o pequeño, puedes añadir: 


20 REM escala 
30 INPUT " Escala 1:?",escala 


y sustituir 1020 por 
1020 LET y=B0 + escalaxsin (x/escala) 


Pero si después de hacer pruebas no deseas que las dos escalas sean 
iguales, puedes escribir estas líneas: 


30 INPUT " Escala horizontal 1:?":esc x 


40 INPUT " Escala VERTICAL 1:7";esc y 
1020 LET y=80 + esc yxsin (x/esc x) 


y probar de nuevo con varios valores (¿Qué pasa si das un valor negati- 
vo para escala vertical?). 


y 


A 


Fig. 17.3 


COS 
Puedes usar este programa con las funciones cono (W—) 
TAN INT 
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SQR EXP 
(5) y exponencial (5) . No te molestes mucho si 


alguna gráfica se sale de la pantalla; ya estudiaremos qué hacer en estos 
casos. 


Cambio de origen 


Puedes situar el origen de coordenadas donde quieras. Si quieres 
ponerlo aproximadamente en el centro, en el punto (120,80), tienes que 
avisarme para que haga pasar los ejes por ese punto y luego considerar 
que los valores de x irán de — 120 a 135 (=255 — 120). 


80 


120 


Fig. 17.4 


Una vez haga los cálculos necesarios para obtener el número y aso- 


ciado a cada x, no representaré el punto (x, y), sino el (x+120, y+80). 
Prueba con la función: 


60 
1+ (AY 
40 


Lo primero es ver cómo tienes que darme y. Como no sé elevar nú- 
meros negativos a una potencia, debes emplear el valor absoluto para 


y = 
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elevar a potencias pares (para las potencias en general se verá un poco 
después). Así que debes escribir: 


y= 69 /(1 + [ABS (X/4B JD ] 2) 


El programa deberá ser aproximadamente así: 


10 REM Ejes 

20 PLOT 02,80:DRAW 255.0 

32 PLOT 120,0 : DRAW P,175 
180 REM Curva 

110 FOR x=-128 TO 130 

120 LET y=60/(1+[ABS(x/48)) 1 2) 
130 PLOT x+120 .y+8D 

140 NEXT x 

159 STOP 


Fig. 17.5 
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18 
OTRAS CURVAS 


Curvas en polares. Familias de curvas. 
Curvas en polares 


Hasta ahora has situado puntos en pantalla dando sus coordena- 
das cartesianas, su distancia al margen izquierdo (x) y su distancia al 
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10%3 


255 


Fig. 18.1 


borde inferior (y). Esta es la única forma en que yo sé situarlos, pero 
me han dicho que hay otras. Por ejemplo, he oído hablar de las coorde- 
nadas polares: se fija un punto en el plano (O) y una “recta que sale de 
él”; cada punto queda entonces determinado por su distancia al punto O 
y por el ángulo v. 


Fig. 18.2 


Así se pueden crear fácilmente curvas que en coordenadas cartesia- 
nas tendrían una fórmula muy complicada, como ésta que te doy en 
polares: 


r=800 cos (3w) 


De todas maneras, como puedo calcular en coordenadas polares, 
pero pintar solo sé hacerlo en cartesianas, tienes que traducir las coor- 
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denadas polares antes de darme la instrucción PLOT; para esto debes 
emplear las siguientes ecuaciones: 


x=r cos (w), y=r sin (w) 


a 


Xx 


Fig. 18.3 


Con estas consideraciones, puedes usar el programa que figura a 
continuación: 


19M REM Curva rosacea 

22 INPUT " Campo [principio y fin) ":p.f 
30 INPUT " Aumento": a 

120 REM Eje 

110 PLOT 120,889: DRAW 135,2 

220 REM Representacion 

210 FOR w=p TO f STEP a 

220 LET r=80*C0S (3* w) 

230 LET x=r*COS w: LET y=r*SINw 
248 PLOT 120+x, B0+y 

2509 NEXT w 

320 STOP 


si cuando me lo pases, le das valores 0 y 6.2 al principio y fin del cam- 
po, respectivamente, y 0.005 al aumento, dibujaré en pantalla una curva 
como la de la figura 18.4 (la rayita de la izquierda es “la recta que sale 
de O” y se la suele llamar eje polar). 
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Fig. 18.4 


Si quieres variar el número de hojas te bastaría añadir: 


40 INPUT "Numero de hojas": n 


y rectificar la línea 220, sustituyendo el 3 por n: 


220 LET r=B£*c0s [ nxw ) 


Fig. 18.5 


Hay que aclarar que el 80 de esta línea también se puede alterar, y 
tendrás rosáceas de diferente tamaño. 
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Dibujos con circunferencias 


También puedes emplear figuras que yo manejo bien, como las cir- 
cunferencias, para hacer dibujos. Por ejemplo, podemos dibujar con 
ellas bandas, como en esta figura: 


Fig. 18.6 


El programa para hacerlo es muy cortito y te permite elegir un 
montón de cosas: 


19 REM Circunferencias 

20 INPUT " Radio": r 

38 INPUT " Altura ":a 

40 INPUT " Distancia entre centros ":d 
180 REM Dibujo 

110 FOR x=r TO 255-r STEP d 

158 CIRCLE x,a.r 

200 NEXT x 

21M STOP 


Pero los centros de las circunferencias no tienen por qué estar 
sobre una recta, puedes situarlos sobre una curva senoidal. Para que 
haya una ondulación suave, es necesario dividir x por un número ni 
muy grande ni muy pequeño, el 30 puede valer. 
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x 
Además, hay que multiplicar sin eS por un número próximo a 


30. Un programa puede ser éste: 


20 INPUT " Radio ":r 

32 INPUT " Altura ":a 

408 INPUT " Distancia entre centros ":d 
50 INPUT " Variacion ":v 

100 REM Dibujo 

110 FOR x=r TO 255-r STEP d 

1598 CIRCLE x,a+v*SIN (x/3D J.r 

200 NEXT x 

21M STOP 


También es posible hacer viajar el centro sobre una curva de tipo 
espiral, con ayuda de las coordenadas polares. El programa podría 
ser así: 
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19 REM Caracola 

229 INPUT " Principio y fin ":p.f 
48 INPUT " Aumento de angulos " :a 
1929 REM Dibujo 

110 FOR w=p TO f STEP a 

120 LET r=6*xw 

130 LET xr=r*COS w 

140 LET yr=r*SIN w 

1509 CIRCLE 120+xr. 8D+yr.r 
220 NEXT w 

21M STOP 


El algoritmo y el diagrama de flujo de todos estos programas es 
prácticamente el mismo. Puedes hacerlos como ejercicios. 
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19 
CADENAS DE CARACTERES 


LEN. TO. STR. VAL. 
Midiendo las palabras 


Como recordarás, hay dos tipos de variables: las numéricas, cuyos 
valores son números, y las alfanuméricas, cuyos valores son cadenas de 
caracteres (letras, cifras u otros símbolos). Conoces una serie de opera- 
ciones que se realizan con números y recordarás que también es posible 
sumar cadenas. Además tengo la instrucción LEN que mide la longitud 
de las palabras, su número de letras. 


10 REM Medir una palabra 
20 INPUT PS 

328 PRINT LEN PS 

48 STOP 


Puede ser más interesante hacerlo con varias palabras seguidas, 
empleando las instrucciones FOR-NEXT. 


190 REM MEDIR PALABRAS 

20 REM leer cuantas palabras voy a medir 

32 READ npalabras 

48 FOR N=1 TO npalabras 

50 READ p3 

609 PRINT pS. LEN pS 

790 NEXT N 

88 STOP 

99 DATA 4 : REM npalabras 

108 DATA " ORO"," VERDE "," MARAVILLOSO"," PRISA" 


119 


Nota: Cuando me mandas que calcule la longitud de una frase, 
también cuento los espacios en blanco. Prueba con: 


10 INPUT " Escribe una frase " :As 
20 PRINT " Esta frase ocupa "¿LEN AS: " espacios." 


Cortar palabras 


Es muy sencillo trocear las palabras, basta con que me indiques 
cuál es la parte que te interesa. Estudia atentamente el siguiente pro- 


grama: 


10 LET as = "murcielago" 

15 REM escribo de la letra 2 ala 5 

20 PRINTas[2TO5) 

25 REM escribo la letra 4 

30 PRINT as (4TO 4) 

35 REM escribo desde la primera hasta la 6 
48 PRINT as (TO 6) 

45 REM escribo desde la 5 hasta la ultima 
59 PRINT as (5 TO) 


urci 
c 
murcie 


¡ielago 


Si estás harto del murciélago, cambia la línea diez para que puedas 
poner la palabra que prefieras. 


10 INPUT "Escribe la palabra que vas a trocear"; a$ 


Usando ciclos FOR-NEXT puedes conseguir curiosos efectos: 
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10 INPUT as 10 INPUT as 


20 FOR ¡=1 TOLEN as 20 FOR ¡=LEN as TO 1 STEP -1 
30 PRINT as (1 TO i) 39 PRINT as(1 TO i) 
40 NEXT i 40 NEXT i 
50 STOP 58 STOP 
m murcielago 
ma murcielag 
mag murciela 
magd murciel 
magda murcie 
magdal murci 
magdale murc 
magdalen mur 
magdalena mu 
m 


10 INPUT "Escribe la palabra que voy a deletrear";a$ 
20 LET I=LEN as 

39 FOR i=1 TO | 

40 PRINT asíli TO i):"-": 

59 NEXT ¡ 

58 5STOP 


Cuando los números son letras y las letras números 


La instrucción STR$ convierte números en cadenas alfanuméricas. 
En la instrucción 10, a es el número 100; en la 20, b es el 200, pero en la 
instrucción 30 escribo la suma de la cadena “100” con la cadena “200”. 


10 LET a=180 
20 LET b=220 

30 PRINT STRS (aJ+STRS(b) 
40 STOP 


La instrucción VAL convierte cadenas alfanuméricas, cuyos signos 
son cifras, en números. En la línea 10 a$ es la cadena “*100” (el signo 1 
seguido de dos signos 0); en la 20, b$ es la cadena “200” (el signo 2 se- 
guido de dos signos 0); pero gracias a VAL, en la línea 30, puedo escri- 
bir la suma de los números 100 y 200. 
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1MLET as="100" 
20 LET b$="200" 


38 PRINT VAL a$+VAL b$ 


RESUMEN 


LEN: 


TO: 


mide la longitud de una variable alfanumérica, 
incluso espacios en blanco. 


a$ (n TO m) aisla, de la variable a$, desde el sím- 
bolo que ocupa en lugar n hasta el que ocupa el 


lugar m. 


convierte constantes numéricas en alfanumé- 
ricas. 


convierte constantes alfanuméricas en núme- 
ricas. 


20 
MEZCLAR PROGRAMAS 


MERGE. SCREENS. 
Mezcla de programas 


Cuando tengo guardado en mi memoria un programa y, con la 
instrucción LOAD, cargas otro, el primero desaparece. Pero a veces 
resulta conveniente introducir un programa y mezclarlo con el que ya 
tengo. Para eso está la instrucción MERGE. Con esta instrucción 
puedo cargar varios programas, sólo hay que tener dos precauciones: 
que los números de las líneas de los programas no coincidan, pues si 
aparecen varias líneas con el mismo número sólo retengo la última, y 
que todos los programas juntos quepan en mi memoria. 
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Supongamos que escribimos los siguientes programas y que están 


los tres archivados en una cinta: 


1 INPUT "INTRODUZCA DOS NUMEROS ":a.b 
12 REM SUMA 
20 PRINT a:"+":b:"=":a+b 

34 PRINT 


12 REM RESTA 

100 PRINT a:"-":b:"=":a-b 
110 PRINT 

14 REM MULTIPLICA 
200 PRINT a;"x":b:"=";ax*b 


Para que cargue estos tres programas deberás proceder así: 


12 Cargar el primer programa con la instrucción LOAD * ”. 
22 Cargar el segundo con la instrucción MERGE “ ”. 
32 Cargar el tercero con la instrucción MERGE “ ”, 


Si estos programas aparecen en la cinta con los títulos “SUMA”, 


“RESTA” y “MULTIPLICA”, entonces: 
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en lugar de LOAD *“* ”, puedes poner LOAD “SUMA”, 
en lugar de MERGE “ ”, puedes poner MERGE “RESTA”, 
y en lugar de MERGE “* ”, MERGE “MULTIPLICA”. 


Si luego me pides un listado, tendrás: 


1 INPUT "INTRODUZCA DOS NUMEROS":a.b 
18 REM SUMA 

12 REM RESTA 

14 REM MULTIPLICA 

20 PRINT a:"+":b:"=":a+b 

309 PRINT 

100 PRINT a:"-":b:"=":a-b 

119 PRINT 

200 PRINT a:"x":b:"=":ax*b 


Mapa 


El programa que tienes a continuación sirve para dibujar el mapa 
de nuestra península: 


2 READ a.b 
10 PLOT a,b 
20 FOR j¡=1 TO 58 
398 READ a,b 
48 DRAW a.b 
50 NEXT ¡ 
95 DATA 169,170 
189 DATA -5,-3,-6,-5.-10,4,-18,-2,-3,3,-10,-4,-19,4,-5,3,-18,-3 
118 DATA -12,2,-9,2,-6.-3,2.-4,-18,-2,-18,-8,5.-18,4,-1,-2,-8 
120 DATA 4.-17,2,-18,-6,-20,-4,-14,4,-2,2,-5,5,2,2.-7,-4,-25 
139 DATA 8,3,11.-4,7,3,10,0,6.-4,1.-5,7,-18,8,-4 
149 DATA 2,7.5.4,6.2,20,6,18.0,3.3.7.-3.7.11,15,3.-2,1D 
158 DATA 6,7.9.12.-9.6.-1.9,18,22,3,1,-2.4,16,18,14.9,10,1D,-2.7,-4, 
10,5,7 
155 STOP 
178 GOTO 2 


Aquí tienes otro programa con los datos necesarios para dibujar el 
río Tajo: 

20 REM Datos del rio TAJO 

219 DATA 161,80 

220 DATA -2,5.-5,4,-3,3,-4,-4,-9,-8,-11,-5 

239 DATA -15,-3,-5,2,-15,4,-10,-2.-7,-3,-8,-4,-6,-5,-3,0,-4,1.-5,-3 

248 DATA -3,-1,-4,-2 


Si cargo el programa del mapa con LOAD y el del río con 
MERGE, dibujo la península y el río. Pulsando RUN aparecerá la penín- 
sula y debajo un mensaje: 


9 STOP statement, 155:1 


Para salvar este STOP pulsa y se completará el dibujo 


con el río Tajo. 


Fig. 20.1 


Otra cosa que puedes hacer es añadir los datos de las fronteras de 
las comunidades autónomas. ¡Animo! 


Guardando Pantallas 


Si tienes un programa que ocupa mucha memoria y una parte con- 
siste en enseñar mensajes, gráficos, dibujos, etc. (enseñar pantallas), una 
buena forma de ahorrar memoria consiste en guardar estas pantallas en 
cinta y cargarlas con la instrucción SCREEN$ cuando queramos que 
aparezcan. 


Vamos a ver un ejemplo sencillo: la pantalla va a contener un 
círculo con centro (100,100) y radio $50. Para guardar esta pantalla en 
cinta, lo único que habrá que hacer será usar el programa siguiente: 


18 CIRCLE 180, 100, 59 
20 SAVE "circulo" SCREENS 


Con esto ya está el dibujo guardado en una cinta. Cuando en un 
programa queremos que aparezca este círculo en la pantalla, no hay 
más que poner en la línea precisa la instrucción LOAD “circulo” 
SCREENS. 
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MERGE y SCREENS con el Microdrive 


Cuando tengo un Microdrive uso estas instrucciones igual que con 
el magnetófono. La única diferencia estriba en la sintaxis; deberás 
decirme: 


LOAD *"m":1:"SUMA" 
MERGE *"m":;1:"RESTA" 


O bien, 


SAVE *"m":1:"circulo" SCREENS 
LOAD x"m":1:"circulo" SCREENS 


RESUMEN 


MERGE: mezcla programas. Los números de línea no de- 
ben coincidir. 


SCREENS: guarda el contenido de una pantalla en cinta 


magnetofónica (SAVE “nombre” SCREENS); 
se recupera con LOAD “nombre” SCREENS. 


Igual que ocurre con las demás órdenes de almacenamiento y 
recuperación, la sintaxis varía según se use ca- 
ssette O microdrive. 
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21 
CICLOS ENCAJADOS 


Ciclos encajados. Tablas y diagramas de barras. Escritura en color. 
Listados invisibles. 
Ciclos encajados 


Puedo dibujar una fila de diez estrellas si me dices: 


10 FOR j¡=1 TO 18 
20 PRINT "*"; 
30 NEXT ¡ 


Si en lugar de una fila quieres seis, tendré que repetir seis veces este 
programita. Pero es más cómodo escribir otro ciclo que contenga al 


anterior, como indica este diagrama de flujo: 
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PRINCIPIO 


Siguiente 
J 


I 


Fig. 21.1 
Puedes añadir al programa anterior las líneas 5,35 y 40, para com- 


pletarlo: 


5 FOR i=1TO6 
18 FOR ¡=1 TO 18 
20 PRINT "e": 

30 NEXT j 

35 PRINT 

40 NEXT ¡ 
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La instrucción 35 es necesaria para que cambie de línea, si no estu- 
viera dibujaría todas las estrellas seguidas. A esta estructura, en la que 
hay un bucle dentro de otro, se la llama bucles encajados. 


Es muy importante que el primer bucle que se abre sea el último que 
se cierra. 


Tablas y diagramas de barras 


Un ejemplo típico de bucles encajados es el que se presenta en 
esta situación: en una tienda hay seis vendedores; deseamos un progra- 
ma que me permita escribir las ventas semanales de cada uno de ellos 
durante un mes. A partir del programa, realiza tú el diagrama de flujo. 
El programa es éste: 


19 BORDER 1 

100 PRINT TAB D."vendedor",TAB 10."sem1":TAB 16:"sem2 ":TAB 
22:"sem3":TAB 27:"semy" 

110 FOR h=08 TO 31 : PRINT "—"::NEXT h 

120 PRINT 

200 FOR ¡i=1 TOG6 

218 REM lee los nombres de los vendedores y los escribe 
220 READ n5 

230 PRINT ns 

24M REM lee y escribe las ventas de cada vendedor en las cuatro se 
manas del mes 

259 FOR j¡=1 TOY 

260 READ V 

270 PRINT TAB (5+6*j):V: 

280 NEXT j 

290 PRINT 

380 PRINT 

310 NEXT i 

4IBDATA "Lopez",926,389,970,543 

419 DATA "Garcia".710,621.667.762 

420 DATA "Perea",380,960,641,398 

4309 DATA "Sanchez",546,379,692,882 

4489 DATA "Gonzalez",290,326,451,569 

45D DATA "Ruiz",632,439,233,861 

50M STOP 
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Lopez 3265 
Garcia r10 
Perea 355940 
Sanchez 5435 


Gonzalez 290 
Ruiz 632 


vendedor eL 


33939 
Sel 
35 
37O 
323 
4539 


Fig. 21.2 


370 
S9r 
641 
590 
4s1 
255 


sed 
Sd5 
r6e2 
3590 
Sue 
>o09 
Sc61l 


Cuando se dispone de muchos datos numéricos y se quiere sacar 
conclusiones rápidamente, puede ser más útil representar el diagrama 
de barras. Si conocemos el total de ventas anuales, en millones de pese- 
tas, de cada uno de los vendedores, podemos hacer el diagrama de ba- 


rras de la siguiente manera: 
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PRINCIPIO 


Escribo la cabecera. 


Subrayo la cabecera. 


Dejo una línea en blanco. 


Para los seis vendedores. 


Leo el nombre del vendedor y sus ventas. 


Escribo el nombre. 


Dibujo la barra de cada vendedor. 


Pongo sus ventas y dejo una línea en blanco. 


Paso al siguiente vendedor. 


Fig. 21.3 
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El programa quedará así: 


5 BORDER 1 

12 PRINT TAB £:"Vendedor":" VENTAS EN MILLONES (PTS)." 
15 FOR h=0 TO 31:PRINT "="::NEXT h 

20 PRINT 

25 FOR i=1 TO6 

30 REM lee los nombres de los vendedores y los escribe 
35 READ n8$.v 

40 PRINT n$: 

45 REM lee y escribe las ventas de cada vendedor en el mes 
59 FOR j¡=1 TO v 

55 PRINT TAB 7+j:'N": 

569 NEXT j¡ 

65 PRINT v 

70 PRINT 

75 PRINT 

89 NEXT ¡ 

85 DATA "Lopez".10 

99 DATA "Garcia",17 

95 DATA "Perea",18B 

1MMDATA "Sanchez",16 

ID5DATA "Gonzalez".22 

118DATA "Ruiz",12 


vendedor VENTAS EN MILLONES 
Lopez MN 10 


Garcia E 

Perea A AAA 
Sanchez MH 1 
Gonza Le z MI > 
RUiz + 


Fig. 21.4 
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Posibilidades de escritura en color 


A continuación puedes ver un programa con tres ciclos encajados. 
Con el ciclo exterior doy al papel todos los colores posibles, del negro 
al blanco (0 a 7); con el ciclo intermedio, trabajo primero sin brillo y 
luego con él; por último, con el ciclo interior voy variando el color de la 
tinta, también de negro a blanco (el número que voy a escribir es preci- 
samente el de la tinta que uso en ese momento). El algoritmo que 
resume lo dicho es éste: 


Para P de 0 a 7 
Hacer papel =P 
Para Bde 0 al 

Hacer brillo = B 
Para TO a 7 
Hacer tinta = T 
Escribir tinta; 
Siguiente T 
Siguiente B 
Bajar 
Siguiente P 
FIN, 


y este es el diagrama de flujo asociado: 
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PRINCIPIO 


brillo = B 


tinta = T 


Fig. 21.5 


10 FOR p=8107 
15 PAPER p 

29 FOR b=D TO 1 
25 BRIGHT b 

38 FOR t=8 10 7 
35 INK t 

40 PRINT t: 

45 NEXT t 

50 NEXT b 

68 PRINT 

65 NEXT p 

78 STOP 


Listados invisibles 


Observa que hay números que no son visibles; son los escritos con un 
color de tinta que coincide con el del papel. El último número que he 
escrito es el 7, aunque tú no lo ves; he acabado escribiendo con tinta 
blanca sobre papel blanco. Si ahora me pides el listado del programa 
anterior, también voy a escribir con tinta blanca sobre papel blanco, 
por lo que no lo vas a ver. Puedes usar este truco cuando no quieras 
que lean tu programa; basta con que al final añadas una instrucción que 
ponga del mismo color la tinta y el papel. 
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2 Z 
GO TO 


GO TO. CONTINUE. 


Direccionamientos incondicionales 


Hasta ahora hemos estudiado dos tipos de procesos: unos que se 
pueden llamar secuenciales (hay una sucesión de acciones que tienen 
lugar una sola vez) y otros cíclicos o repetitivos (una sucesión de accio- 
nes se repiten un cierto número de veces; este número de veces se cono- 
ce, o se podría calcular, de antemano). Los algoritmos respectivos son 
del tipo siguiente: 


Hacer cosa 1 Repetir K veces 
Hacer cosa 1 


Hacer cosa n Hacer cosa n 


FIN Siguiente vez 
EIN 


y los diagramas de flujo: 
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PRINCIPIO PRINCIPIO 


FIN 
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Procesos que no terminan 


A veces se presentan problemas con procesos repetitivos que no 
terminan nunca. Por ejemplo, puedes subir al tiovivo y no parar de ca- 
balgar, o bien ponerte a contar y no terminar. Los algoritmos y las ins- 
trucciones que hasta ahora hemos empleado son insuficientes; el algo- 
ritmo del proceso de contar será así: 


Hacer número = 1 


Repetir 


Fin de lo que se Repite 
FIN 


Por abreviar, en lugar de Fin de lo que se Repite, se suele poner Fin 
de Repetir. 


El diagrama de flujo va a ser éste: 
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PRINCIPIO 


número = | 


número = 
número + 1 


Fíjate que, según este diagrama, hay un momento en que la acción 
siguiente es también una acción pasada. Esto significa que tengo que 
echar marcha atrás; para eso está la instrucción GO TO (ir a) que se 
usa seguida de un número de línea; cuando me encuentro con esta ins- 
trucción, leo el número que sigue a GO TO, me dirijo a esa línea y hago 
lo que allí se me indica. El programa que cuenta será así: 


19 REM Contar 

20 LET número=1 

309 PRINT numero:;"-"; 

4D LET número=número+1 
50 GO TO 30 

60 STOP 


Al llegar a la línea 50 veo que hay que seguir la ejecución en la 30 y 


regreso a ella, escribiendo el valor de la variable número, un guión, y 
paso a la 40. 


Interrumpir o reanudar un programa 


Una vez que empiezo a ejecutar este programa no paro ya. Si 
quieres que pare, tienes que interrumpir el programa. Para hacerlo, de- 
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bes darme la orden BREAK (romper la ejecución), pulsando las teclas 
CAPS | |BREAK 
SHIFT | (SPACE 
Es posible que te hayas precipitado al cortar la cuenta; no te preo- 


cupes, pulsa CONTINUE (e) y yo sigo contando a partir del 
número en que lo dejé. 


Salto. Direccionamiento calculado. 


A la instrucción GO TO se le llama direccionamiento. Tanto mi 
direccionamiento como la orden de continuación (CONTINUE), son 
mucho más potentes que las de otros microordenadores. Te explicaré 
por qué: 


La primera razón es que la dirección puede no ser un número, sino 
una variable, en cuyo caso puedes añadir estas líneas: 

15 LET repetir=30 

25 REM repetir 


y sustituir la 50 por esta otra: 
50 GO TO repetir 


el programa que resulta hace exactamente lo mismo que el anterior, 
pero es más claro. 


Otra razón es que no resulta imprescindible direccionar a una línea 
que exista. Si me indicas una que no existe tengo la capacidad de buscar 
la siguiente y seguir en ella. Puedes probarlo: escribe el programa tal 


como está y pulsa y [ENTER] ; antes de que se llene la pan- 


talla de números detén la ejecución, apretando | CAPS BREAK |. 
SHIFT SPACE 


luego borra la línea 30 y sustituye la 40 por ésta: 


40 PRINT numero:"—";: LET numero=numero+ 1 


y pulsa [ENTER] . Dame ahora la orden CONTINUE y verás que sigo 
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realizando el programa correctamente, aunque no hay línea 30. Cuando 
la busco y no la encuentro, voy a la siguiente y continúo en ella. 


ATENCION: Sólo en condiciones cuidadosamente controladas 
debes utilizar esta posibilidad; de lo contrario, solo conseguirás vicios 
de programación y errores inesperados. 


Una instrucción potente 


Si has seguido mis instrucciones tan fielmente como yo sigo las tu- 
yas, cosa poco probable en un humano..., habrás logrado que haga otra 
cosa que la mayoría de los '“micros” tampoco pueden hacer: continuar 
ejecutando un programa que, no sólo se ha interrumpido, sino que se 
ha alterado. Además, no empiezo a ejecutarlo otra vez, sino que conti- 
núo con el valor que tenía número cuando se interrumpió. 


Puedes comprobar esta capacidad de continuar en “condiciones 
adversas” haciendo lo siguiente: corta otra vez la ejecución y, cuando 
ponga en la pantalla el mensaje 


BREAK 


escribe 


PRINT numero 


y pulsa [ENTER] ; te contestare con el valor de la variable número en 
ese momento. Escribe ahora 


LET numero=40000 


y de nuevo 
PRINT numero 


verás como pongo 40000. Si ahora pulsas otra vez CONTINUE, sigo 
contando, pero a partir de 40000. 


Escribe tú el algoritmo de un proceso por el que yo te pida indefi- 
nidamente el nombre de una persona y su número de teléfono, y los 
vaya escribiendo unos debajo de otros, como en una agenda. Luego 
prográmalo. 
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RESUMEN 
GO TO 60: envía a la línea 60; si no existe, a la siguiente. 


GO TO variable: envía a la instrucción cuyo número coincide 
con el valor de la variable en ese momento. 


BREAK: interrumpe un programa. 


CONTINUE: continua un programa que se interrumpió. 
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23 
DECISIONES (IF-THEN) 


Si-entonces. IF-THEN. Si-entonces-si no. 


Si-entonces 


Como sabes, puedo repetir una acción cierto número de veces. Si 
por un momento reflexionas sobre ello, comprenderás que eso supone 
que sé hacer dos cosas distintas: contar cuántas veces lo he hecho y deci- 
dir si son bastantes o debo continuar. En muchas ocasiones es intere- 
sante, o imprescindible, decidir entre dos o más opciones; voy ahora a 
contarte cómo preparar un programa para que decida en la forma que 
tú quieras que lo haga y, aún más importante, cómo crear previamente 
el algoritmo y el diagrama de flujo que te permitan llegar al programa. 
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Supón que salimos de casa y en el descansillo nos encontramos con 
los vecinos. Te pregunto cuántos son, y si me contestas “Dos” les salu- 
do; si me contestas otra cosa no digo nada. Este proceso se puede des- 
cribir así: 


Entrar c (Contestación a la pregunta “¿Cuántos son?”) 
Si c=2 
entonces 
Saludar 
Fin de Si 
FIN: 


Como puedes observar, el proceso de decisión comienza con una 


comparación y va seguido de una consecuencia a la contestación afir- 
mativa. Por último se señala el fin del proceso, o algoritmo, de decisión. 


Si” | Comparación “Si” comparativo 


entonces 


Acción O acciones 
consecuencia de un “Sí” afirmativo 
Sí a la comparación. 


Fin de Si. 


El diagrama de flujo que se asocia a este algoritmo es el siguiente: 


comparación 


acción 


Fig. 23.1 
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En BASIC, este algoritmo se expresa con una línea de programa de 
este tipo: 


Si | Comparación |, entences | Acción 


y la acción, como ya te he dicho, sólo tiene lugar cuando a la compara- 
ción se le contesta con un “Sí”. La línea de programa será: 


Volviendo al caso del descansillo y los vecinos, el diagrama de flujo 
será éste: 


Fig. 23.2 


Y el programa quedará así: 


18 REM Saludos 

22 INPUT "Cuántos son?":C 

30 |F C=2 THEN PRINT "Hola" 
yA STOP 
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Si-entonces-si no 


En el caso que acabamos de ver, la decisión puede llevar, o no, a 
una acción. En otros casos la decisión lleva a dos acciones diferentes; 
supón que te pido un número, y si me das uno mayor que 5 te digo que 
es grande, y en caso contrario que es pequeño. El algoritmo será 
algo así: 


Entrar un número 

Si número — $5 

entonces 
Escribir “GRANDE” 

si no (si no es mayor que 5) 
Escribir “pequeño” 

Fin de Si 

FIN. 


Fijate que es un algoritmo muy parecido al que ya has visto: 


antes ahora 
Si comparación Si comparación 
entonces entonces 


Acción que 
resulta tras 


Acción que 
resulta tras 
un Sí en la 
comparación. 


un Sí en la 
comparación. 


Fin de Si si no 


¡Acción que 
resulta tras 


un No en la 
comparación. 


Los diagramas de flujo respectivos son estos: 
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omparació omparación) 


Acción 1 Acción 1 


Acción 2 


Fig. 23.3 


El diagrama de flujo asociado al algoritmo anterior es: 


PRINCIPIO 


pequeño 


Fig. 23.4 


El programa puede quedar así: 
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10 REM Tamano de un numero 

20 INPUT "Dime un numero "¡numero 

30 |F numero>5 THEN PRINT "GRANDE": GOTO 50: REM esto si 
la contestacion a la comparacion es Sl 

40 PRINT "pequeno": REM esto si la contestacion a la comparacio 
nes NO 

50 STOP 


Al llegar a la línea 30 comparo el número que me has dado con el 


5: si es mayor que 5, entonces escribo “GRANDE”, y voy a la línea 50; 
si no es mayor, paso a la línea siguiente, la 40, y escribo “pequeno”. 


RESUMEN 


IF comparación THEN acción: Si en el momento de ejecutar 


la instrucción, la comparación tiene valor ló- 
gico 1 (es cierta), se realiza la acción; si la 
comparación tiene valor lógico O (es falsa), se 
continua la ejecución en la línea siguiente. 
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24 
LA SUERTE 


RANDOMIZE. RND. INT. SGN. 


Números al azar 


Para poder jugar mejor he aprendido también a hacer rifas. Si 
quieres que diga un número cualquiera, debes usar la instrucción RAN- 


T 
DOMIZE (e que me prepara para hacer una rifa, y luego 
RND 
indicarme que saque un número, con la función Sl a) Las 


letras RND son una abreviatura de RaNDom, que significa “al azar”. 
Para hacer rifas puedes usar este programa: 
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10 REM Rifas 

22 RANDOMIZE 
328 PRINT RND:"-": 
48 GOTO 30 

59 STOP 


Pulsa RUN y cuando te canses de ver números aprieta 


CAPS | [BREAK 
SHIFT | | SPACE ]' 


Juegos de azar 


Como puedes ver, pongo números al azar, pero están todos entre O 
y 1. Si quieres simular que lanzas un dado, esos números no valen, de- 
bes sustituir la línea 30 por esta otra: 


32 PRINT INT (6*RND) + 1 


fíjate en lo que hago cuando veo esta nueva línea: primero, cojo un 
número entre cero y uno, 


U<SRAND<1I 


después lo multiplico por seis, y ya tenemos un número entre cero 
y seis, 


0<6 * RND<6 
luego, dejo sólo su parte entera 
O<INT (6 * RND)J<5 


(los valores ahora pueden ser 0, 1,2,3,465 y ninguno más); y po 
mo le sumo uno, con lo cual quedan los valores 1, 2, 3, 4, 5 ó 6. 


1<INT (6 * RND) + 1<6 
Si prefieres jugar al bingo puedes poner 
329 PRINT INT (99 * RND) + 1 


y sies a la ruleta, hay que sacar números entre el cero (gana la casa) y 
el 36 y colores rojo o negro. Vamos a programar una ruleta simplifica- 
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da: podemos quitar el cero y sacar un número del 1 al 36 (suponemos 
que el número y el color son independientes). El algoritmo es así: 


Sacar número (de 1 a 36) y color (de 0 a 1) 
Si color =0 
entonces 
Poner tinta roja 
Escribir número; “ROJO” 
si no 
Poner tinta negra 
Escribir número; “NEGRO” 
Fin de Si 
FIN. 


El diagrama de flujo será éste: 


PRINCIPIO 


número 
color 


FIN 


Fig. 24.1 


y el programa resultará de esta manera: 
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19 REM Ruleta 

20 RANDOMIZE 

30 REM Rifa 

40 LET numero=INT (36 * RNDJ)J+1 

50DLET color=INT (2 * RND) 

56M REM Se decide la forma de escribir 

7D 1F color=8 THEN INK 2: PRINT AT 10, 12:numero:" ROJO": GO 


TO 100 
809 INK 9: PRINT AT 16, 12:numero:" NEGRO" 
122 STOP 


Valores en cualquier campo 


Si quieres obtener la temperatura en un lugar cualquiera del plane- 
ta, que supondremos entre — 60 y + 54 grados centígrados, debes consi- 
derar que la distancia entre estos valores extremos es 114 grados. La 
línea de programa con que escojo la temperatura tiene que ser: 


LET número = 114 * RND - 60 


al multiplicar el número aleatorio que doy con RND por 114, tenemos 
un número entre 0 y 114; y al restarle 60 queda el valor buscado: 


0<114 * RND<114 
- 60<114 * RND - 60< 54 


En otras ocasiones nos puede hacer falta alterar el signo de un nú- 
mero de manera impredecible, para lograr eso multiplicamos el núme- 
ro por 1 ó — 1, tomados al azar. Los puedes obtener usando la función 
SGN (signo) que a los números positivos les hace corresponder el valor 
1 y a los negativos el — 1; al cero le hace corresponder el 0, pero si usas 
la expresión: 


SGN (RND «x 2 - 1) 
es casi imposible que salga el cero. Prueba con este programa: 


18 PRINT SGN (RND « 2-1):"."::GO TO 10 
20 STOP 
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RESUMEN 


RANDOMIZE: preparar al ordenador para generar números 
aleatorios. 


RND: genera números al azar. Para que efectivamen- 
te sean imposibles de predecir, es necesario 
emplear previamente la orden RANDOMIZE. 


deja la parte entera de a(porejemplo, INT 2.4 = 2 
y INT 5=5). 


vale 1 si bes un número positivo; vale — 1 si b 
es negativo, y O si b es nulo. 
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25 
BASIC estructurado 


Repetir ... hasta que ... . Mientras ... repetir ... . Repetir ... hasta que... 
repetir... 


Repetir ... hasta que 


Ya has visto cómo indicarme que haga algo un cierto número de 
veces, y también cómo decir que hay que repetir cierta acción sin parar, 
como si se tratase de montar en el tiovivo. Pero cuando me pierdo en el 
bosque, busco el camino no sé cuantas veces, pero no lo repito para 
siempre, sólo hasta que lo encuentro; luego cabalgo hasta llegar al casti- 
llo. A veces tenemos que repetir algo, no se sabe cuántas veces, pero en 
algún momento se deja de repetir, cuando se cumplen ciertas circuns- 
tancias. 
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Estas situaciones repetitivas pueden ser de diversos tipos, que vere- 
mos a continuación: supón que dejas caer una pelota de goma desde 
una cierta altura; tras cada rebote sube hasta otra altura que es igual a 
la anterior multiplicada por un cierto coeficiente. Este proceso se repite 
hasta que la altura a que sube es ya muy pequeña (supongamos que 0.5 
centímetros). Por ejemplo, la altura inicial es 100 cm y el coeficiente 0.5, 
entonces en el primer bote sube hasta 50 cm, en el segundo hasta 25 cm, 
y así sucesivamente, hasta que la altura es menor que 0.5 cm. El proce- 
so se puede describir así: 


Entrar coeficiente y altura 
Escribir “Altura (cm)” 
Repetir 
Escribir altura 
Hacer altura = altura * coeficiente 
hasta que la altura sea menor que 0.5 


Fin de Repetir 
FIN. 


El diagrama de flujo ligado a este algoritmo es el siguiente: 
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PRINCIPIO 
' 
coeficiente 
altura 


Encabe- 
zamiento 


altura = altura * 
coeficiente 
bote = bote + 1 
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El programa puede quedar así: 


10 REM Rebote 

20 REM Valores iniciales 

329 INPUT " Coeficiente de bote de la pelota " : coeficiente 
428 INPUT " Altura inicial len cm)"; altura 

50 LET bote=0 

69 REM Encabezamiento 

70 PRINT TAB (7):"BOTE":TAB(15):"ALTURA" 

809 PRINT TAB(8):bote:TAB(16):altura 

90 LET altura=altura * coeficiente:LET bote=bote+1 
109 IF altura>2.5 THEN GO TO 80 

118S5TOP 


Mientras ... repetir ... 


En otras ocasiones puede que tengamos que repetir, o no, algo 


según las circunstancias. La situación es parecida a la anterior, pero no 
es idéntica. Por ejemplo, supón que a tí te gusta que la pantalla dé un 
color y a mí solo blanca. Cuando fijes un color de pantalla, miraré si es 
el blanco, y mientras sea otro lo cambiaré (al azar, pero lo cambiaré). 
El algoritmo se puede expresar así: 


Entrar color en pantalla (cp) 
Mientras el color de pantalla no sea blanco (cp +7) 
repetir 
Elegir otro color 
Fin_de Mientras 
FIN. 


Puedes comparar su diagrama de flujo con el del programa ante- 


rior y verás claramente la diferencia entre ambos. El diagrama es el 
siguiente: 
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PRINCIPIO 


fin= 110 
repetir = 60 
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El programa será así: 


19 REM Color de fondo 

20LET fin=110: LET repetir=60 
39 RANDOMIZE 

48 INPUT "Numero del color de pantalla ":CP 
50 BORDER CP:PAPER CP:CLS 
62 REM Busqueda del color blanco 
70 1F CP=7 THEN GO TO fin 

80 LET CP=INT (RND * 8) 

99 BORDER CP: CLS 

189 GO TO repetir 

110 STOP 


Un caso algo más complejo 


Si comparas los diagramas anteriores verás que los ciclos son di- 
ferentes: 


— a — 


Fig. 25.3 


en el primero de ellos se llega a la comparación tras operar; en el segun- 
do, se compara y sólo si es necesario se opera. No es absurdo pensar 
que, en ciertas circunstancias puede ser necesario operar antes y, tal 
vez, después de la comparación, tal como indica la figura siguiente. 
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Fig. 25.4 


Vamos a ver una situación de este tipo. Jugaremos al genio del 
diccionario: yo, en el papel de genio, te pregunto qué deseas y tú me 
pides algo; si ese algo es que deletree una frase o palabra, lo hago; en 
caso contrario, te digo que sólo sé deletrear, y acabamos. El algoritmo, 
un poco más complicado que los anteriores, puede ser éste: 


Repetir 

Entrada de orden 
mientras la orden sea “Deletrea ... 
hacer 

Deletrear la frase o palabra indicada 
Fin_de Repetir 
Escribir “Sólo sé deletrear.” 
FIN. 


EE) 


Haz tú el diagrama de flujo; es del tipo de la última figura. El pro- 
grama será así: 


10 REM El genio del diccionario 

20LET fin=150:LET repetir=30:LET deletrear=90 

39 REM Te hago la pelota y me das una orden 

48 PRINT "Que deseas que haga. oh amo sublime." 
52 INPUT LINE p$ 

50 1F pS (1 TO 8]="Deletrea" THEN GO TO deletrear 
70 REM Si no pides deletrear, hemos terminado 

82 GO TO fin 

99 REM Aqui empiezo a deletrear 
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100 FOR L=9 TO LEN (p$)-1 : REM Para todo lo que has dicho. sal 
vo la primera palabra 

1190 PRINT ps(L TO L]):"-": 

120 NEXT L 

130 PRINT psILEN p$ TO LEN p$8): REM tras la ultima letra no va 
guion 

140 GO TO repetir 

159 REM fin 

160 PRINT "Lo siento, pero ahora solo se deletrear." 

178 STOP 
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26 
CONJUNCIONES 


OR. AND. NOT. 
La partícula OR 


Las comparaciones del capítulo anterior son muy simples: en la 
realidad muchas veces se presentan varias de aquéllas agrupadas. Por 
ejemplo, si sales a la calle y me dejas a mí de portero automático, cuan- 
do esperas la visita de Paco y de Antonio ¿qué instrucciones me darás 
para que les haga pasar sólo a ellos, y a cualquier otra persona le diga 
que vuelva a las cinco? Con las instrucciones que hasta ahora conoces 
no puedes evitar usar dos comparaciones, pero en tu vida normal ha- 
rías esto: 


Preguntar quién es 


Entrar contestación (n$) 
Si n$=“Paco” o “Antonio” 


entonces 
Escribir “La llave está debajo del felpudo. Pasa y siéntate.” 
si no 
Escribir “Vuelva a las 5. Por favor” 
Fin de Si 
FIN, 


Como puedes ver, esta no es una comparación entre una variable y 
un número o palabra, sino entre una variable y dos palabras. ¿Cómo 
hacerlo? Tienes que usar la palabra OR, que quiere decir “o”, para unir 
las dos comparaciones. La línea de programa que contenga la compa- 
ración será: 


IF n$= “Paco” OR n$= “Antonio” THEN 


— — 7 
1* comparación 2* comparación 
—_—_——>. SN 


comparación total 
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Consideraré que la comparación total es cierta cuando sea cierta la 
primera comparación, la segunda o las dos al tiempo (esto último no es 
posible en nuestro ejemplo, pero sí en otros que iremos viendo). 


Haz tú el diagrama de flujo, para entrenarte. El programa que- 
dará así: 


10 REM Portero automatico 

20 PRINT "Quien es?" 

32 INPUT LINE: n$ 

4B IF n$ = "Paco" OR n$ = "Antonio" THEN PRINT "La llave esta d 
ebajo del felpudo. Pasa y sientate": GO TO 60 

509 PRINT "Vuelve e las 5, por favor." 

6DSTOP 

y 


La partícula AND 


Una situación distinta se presenta cuando quieres que, al darme una 
palabra, la escriba en diagonal sólo si empieza por a y tiene menos de 
cinco letras. Antes daba lo mismo que se cumpliese cualquiera de las 
condiciones para que la total fuese cierta; ahora, en cambio, es necesa- 
rio que se cumplan las dos al tiempo para que sea cierta la comparación 
total. Esta nueva situación se expresa en BASIC de esta manera: 


—— a 


comparación total 


La partícula AND (y) te permite crear una nueva comparación a 
partir de dos iniciales. Esta nueva comparación será cierta sólo si lo son 
simultáneamente las dos que tenías al principio. 


Veamos un ejemplo: me das una palabra, y si empieza por a y tiene 


menos de cinco letras, la escribo en diagonal. Escribe tú el algoritmo y 
haz el diagrama de flujo. El programa será así: 
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18 REM Dos condiciones al tiempo (2) 

20 INPUT LINE ps$ 

30 1F p3 (1 TO 1)="a" AND LEN p$<5 THEN GO TO 50 

48 GO TO 180 

59 REM Escribir en diagonal 

698 FOR L=1 TO LEN p$:REM Para todas las letras. 

79 PRINT TAB(L);psíL TO LJ: REM escribirlas en la columna que 
les corresponde. pero cada vez en una fila. 

809 NEXT L 

100 STOP 


La partícula NOT 


Un número es múltiplo de 3 cuando al dividirlo por éste da un 
resultado entero. Puedes mirar si 24 y 11 son múltiplos de 3: 


24 : 3=8 es un número entero 
11 : 3=3,66 ... no es entero 


luego, 24 es múltiplo de 3 y 11 no. Para saber si un número es entero 
aplico la función INT: 


como INT (8)=8, 8 es un número entero; 
como INT (3,66)+43,66.., 3,66 ... no es entero. 


En resumen, calculo 
24/3 y INT (24/3) 
y como coinciden, el número es múltiplo de 3. 


Para conocer qué números ro son múltiplos de 3, de entre los com- 
prendidos entre a y b, puedes proceder así: 


Entrar a y b 


Para todo número entre a y b 


) l número  _ número 
Si no. es ciertó que ———— INP ="“= 
e) El 


entonces 
Escribir número 
Fin de Si 


Siguiente número 
FIN. 
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Fíjate que quieres que escriba sólo si no es verdad, justo al revés de 
lo normal; para eso necesitas una instrucción que haga cierto lo falso y 
falso lo cierto. Esa partícula es NOT (no) y se emplea, en BASIC, en 
forma algo distinta al lenguaje usual. Se hace así: 


IE NOT THEN 


—a SST A 


Condición final 


Si la conjunción inicial es falsa, entonces su contraria es cierta y 
ejecuto la acción. Si la condición inicial es cierta, entonces su contraria 
es falsa, y la acción no tiene lugar. 


10 REM Primos con 3 

20 INPUT "Dame dos numeros y te dare todos los que hay entre ell 
os que mo son divisibles por 3":a, b 

INFORn=aTOb 

40 1F NOT ((n/3)=INT (n/3)) THEN PRINT n:"—":; 

529 NEXT n 

68 STOP 


RESUMEN 


OR: forma una condición a partir de dos. Si cual- 
quiera de las dos condiciones iniciales es cierta, 
lo es la resultante. 

(Cond 1) OR (Cond 2). 


forma una condición a partir de dos. Si las dos 
condiciones iniciales son ciertas, lo es la resul- 
tante. 

((Cond 1) AND (Cond 2)). 


forma una condición a partir de otra. Si la con- 
dición inicial era falsa, la resultante es cierta, y 
al revés. 

(NOT (Cond 1)). 
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2 
SUBRUTINAS 


GOSUB. RETURN. 
Canción 
Hay una cancioncilla de Lope de Vega, que dice así: 


La Virgen de la Cabeza, 
¡Quién como ella! 
hizo gloria aquesta tierra. 
¡quién como ella! 
Tiene la frente de perlas 
¡quién como ella! 
y de oro fino las hebras. 
¡Quién como ella! 
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Puedo escribirla en la pantalla si me das ocho órdenes PRINT. Sin 
embargo, como hay cuatro versos iguales, es posible programar este 
verso una sola vez, de manera que pueda usarlo cuando lo necesite. Eso 
se logra con este programa: 


1D REM LOPE DE VEGA 

20 PRINT "La Virgen de la Cabeza" 
39 GOSUB 120:REM Estribillo 

48 PRINT "hizo gloria aquesta tierra" 
50 GOSUB 120 

60 PRINT "Tiene la frente de perlas" 
7% GOSUB 129 

89 PRINT "y de oro fino las hebras" 
99 GOSUB 120 

95 STOP 

100 REM Estribillo 

110 PRINT "Iquien como ella!" 

120 RETURN 


Cuando realizo este programa, comienzo escribiendo el primer 
verso y al llegar a la línea 30 me encuentro con GOSUB (ve a la subru- 
tina). Esta línea tiene el mismo efecto que un GO TO de ida y vuelta. 
Te explicaré qué hago: tomo nota de que estoy en la línea 30 y a conti- 
nuación me dirijo a la 100; seguidamente ejecuto la línea 110 (escribo el 
estribillo) y, en la 120, encuentro la instrucción RETURN (regresa); en- 
tonces miro cuál era la línea donde estaba cuando di el salto (la 30) y 
regreso a la siguiente a ésa, a la 40. El proceso es idéntico al que se da 
en un viaje de ida y vuelta: adquiero un billete en el que pone: 


Orígen Destino Regreso 
línea 30 línea 100 línea 40 
línea 50 línea 100 línea 60 
línea 70 línea 100 línea 80 
línea 90 línea 100 línea 95 


y primero me dirijo de 30 a 100 y, al llegar a RETURN, regreso de 100 
a la siguiente a 30, la 40. Pasa el programa y verás que el comporta- 
miento en las otras líneas es análogo. 
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Medición de terrenos 
En muchas ocasiones resulta conveniente emplear subrutinas para 
resolver aparte algunas cuestiones de un problema, porque así se entien- 


de mejor lo que haces. Supón que quieres medir un campo, cercano a 
una carretera, cuyos vértices tienen las siguientes coordenadas (en m): 


(0,175) 


- (255,0) 
(0.0) 


Fig. 27.1 


(70, 10), (10, 30), (0, 150), (140, 130), (180, 140), 20, 90) y (200, 50). 
Para medirlo empleamos una fórmula según la cual, si 


a+tb+ce 
p= A (Ver Fig. 27.2) 


entonces: 
Area =V plp-aXp-bAp-c) 
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Podemos dejar un vértice fijo, VF = (70, 10) por ejem- 
plo, y con Vl1 =(10, 30) y V2 = (20, 150), medir el tri- 


R ángulo de la figura 3; luego podemos hacer que 
VI =V2 y V2=(140, 130) (figura 4); y así se puede 
continuar 

a 
Fig. 27.2 
Fis. 27.3 Fig. 27.4 


hasta terminar. El algoritmo para este proceso, será el siguiente: 


Inicializar Area =0 
Leer número de vértices (NV) 
Leer VF y VI (Vértice principal y vértice 1) 
Dibujar VF, VI 
Hacer NV — 2 veces (V) 
Leer v2 
Dibujar el triángulo 
Calcular el área total (hasta ese momento) 
Hacer Vl=V2 
Siguiente vértice 
Escribir Area 
FIN 


El diagrama de flujo será así: 
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PRINCIPIO 


Area=0 


NV, VF, VI 
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Los círculos se denominan conectores y denotan la presencia de 
una subrutina o el regreso al programa principal. El programa buscado 
era éste: 


1M REM Agrimensura 

20 REM Valores iniciales 

39 PAPER 4:CLS:BORDER 4:1INKQ 

40 READ NP:REM n de vertices 

50 READ xp.yp:REM punto principal.permanece fijo 

60 READ xa.ya:REM punto anterior,varia cada vez 

70 PLOT xp.yp:DRAW xa-xp.ya-yp:REM Segmento inicial 
100 REM Para todos los puntos.menos los dos primeros 

110 FOR V=3 TO NP-2 

120 READ xn,.yn:REM leer sus coordenadas 

138 GOSUB 12800:REM Dibuja el triangulo 

148 GOSUB 20200:REM Calcular su area y sumarla a la ya obtenida 
158 NEXT V 

160 PRINT AT 21,5:"Area=":Area:"m2" 

178 STOP 

1809 REM 

1000 REM Dibujar el triangulo 

1010 PLOT xp.yp:DRAW xn-xp.yn-yp 

1020 PLOT xa. ya:DRAW xn-xa,yn-ya 

1030 RETURN 

2000 REM Calculo y suma del area 

2010 LET a=SQRIABS(xa-xpJ12+ABS(ya-yn)12) 

2020 LET b=SQRIABS[xa-xpJ12+ABS[ya-yp)12) 

2030 LET c=SQRIABS(xn-xpJ12+ABS[yn-ypJ12) 

2040 LET p=(a+b+c)/2:REM Semiperimetro 

2050 LET Area=Area+SQRÍp «* [p-a) «+ [p-b) * (p-c)) 

2060 LET ax=xn:LET ya=yn:REM El que era punto nuevo pasa 
a ser el Punto Anterior 

2070 RETURN 

3909 DATA 70, 18, 10, 30, 28, 150, 148, 130, 189, 14M, 22M, 90, 200,59 


176 


RESUMEN 


GOSUB n: 


GOSUB var: 


RETURN: 


transferencia de control a la subrutina que co- 
mienza en la línea n. 


transferencia de control a la subrutina que co- 


mienza en la línea indicada por el valor presente 
de la variable var. 


Señal de fin de subrutina. Se devuelve el control 
al programa principal, a la orden siguiente a 
GOSUB, aunque estén las dos órdenes en una 
misma línea. 
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28 
CODIGOS 


CODE. CHRS. 
CODE 


Cada símbolo tiene asociado un número. Cuando me das una 
frase, la almaceno como una sucesión de números: el número que co- 
rresponde a la primera letra, el que corresponde a la segunda, etc., así 
hasta el que corresponde a la última. Cuál es el número que se asocia a 


cada símbolo, su código, es algo que te diré si usas la función CODE 
CODE 


(código, en la tecla 1) Puedes usarla así: 


1M) REM Codigo 

20 INPUT "Simbolo":S$ 

39 PRINT S5:" "; CODE S$ 
48 GO TO 28 

50 STOP 
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Si quieres conocer los códigos de todos los símbolos de una frase, 
puedes usar este programa: 


19 REM Codigos-frase 
228 PRINT "Frase": INPUT LINE f$ 


39 FOR n=1 TO LEN f$ 
40 PRINT n:"—":fsín TO n):"—":CODE (fs[n TO n)) 


509 NEXT n 
59 STOP 


CHR$ 


CHR$ 


La función inversa es curs ( (Y) que permite tomar un 


código cualquiera y localizar el símbolo correspondiente. Puedes aplicar 
sucesivamente las dos funciones: primero decirme 


PRINT CODE "K" [ENTER 


y te contestaré con el valor 75; si luego pones 


PRINT CHR$S 75 ENTER 


escribiré K. 


Para conocer los símbolos cuyos códigos están entre dos números 
cualesquiera, puedes emplear este otro programa: 


18 REM Codigos-simbolos 

20 INPUT "Valores minimo y maximo de los codigos":a,b 
32 FOR n=a TOb 

40 PRINT n:"-"¿CHRS$(n) 

59 NEXT n 

698 STOP 
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Espionaje 


Una manera sencilla de cifrar un mensaje consiste en aislar cada 
una de sus letras, sumar a su código una cantidad constante, y escribir 
luego la letra cuyo código es esta suma. Haz tú el algoritmo y el diagra- 
ma de flujo correspondientes. Yo te pongo el programa que resulta: 


10 REM Codificacion 

20 PRINT "Escribe el mensaje secreto":INPUT LINE mS$ 
30 PRINT ms 

40 INPUT "Numero clave": clave 

5M CLS 

1000 FOR |=1 TO LEN ms 

1010 LET c=CODE ms (1 TO |) 

1020 PRINT CHRS [(c+clave), 

1038 NEXT | 

1048 STOP 


Con un programa análogo puedes descifrar un mensaje que haya 
sido codificado por el método anterior, aunque no conozcas la clave. El 
diagrama de flujo es éste: 
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PRINCIPIO 
m$ 
min. max 


l entre 1 
y len m$ 
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El programa puede quedar así: 


2000 REM Romper la clave 

2010 REM Entrar valores 

2020 PRINT "Mensaje codificado":INPUT LINE ms 

20389 PRINT msS 

2040 INPUT "Valores minimo y maximo para buscar la clave": 
min, max 

2100 REM Pruebas 

2110 FOR c=min TO max : REM Para cada posible clave 

2120 PRINT "Pruebo con la clave":c:PRINT 

21309 FOR l=1 TO LEN m$ :REM Para todas las letras del 
mensaje 

2148 LET x=CODE ms (1 TO I)-c:REM El codigo menos el 
valor que se prueba, sera un codigo 

2150 1F x=D OR x>255 THEN PRINT "Esta no es la clave":GO 
TO 2200:REM Una resta no era codigo. luego ese valor no puede 
ser la clave 

21609 PRINT CHRS x::REM Descifra esta letra 

2170 NEXT |:REM Siguiente letra 

2200 REM Probar con otro valor 

2210 INPUT "Sigo?":aS:PRINT 

2215 IF as<=>"s" THEN GO TO 2238 

2228 NEXT c: REM Probar con el siguiente valor 

2230 STOP 


RESUMEN 


CODE “K”: proporciona el código asociado al símbolo K. 
El código del Spectrum es una variación del 
del código ASCII. 


facilita el carácter cuyo código es el número n. 
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29 


EL MOVIMIENTO 
EN LOS JUEGOS 


INKEY8 


Entrada rápida de datos 


Si quieres que al darme una instrucción yo responda con toda rapi- 
dez (como ocurre en los juegos), la instrucción INPUT no resulta apro- 
piada. Compruébalo con este programa: 


10 REM Velocidad de INPUT 
20 INPUT t8 

309 PRINT "HtS:"H" 

40 STOP 


Resulta mucho más apropiado usar la función INKEYS (está en la 
INKEYS 


tecla NN) Sustituye las líneas 10 y 20 por estas otras: 


10 REM Velocidad de INKEYS$ 
20 LET t$8=INKEYS 


Y pasa otra vez el programa. 


Supongo que has notado que ahora voy veloz como un rayo, tanto 
que no te espero siquiera. Con INKEY$ hago casi lo mismo que con 
INPUT: tomo valores del teclado, pero como voy tan rápido sólo 
puedo tomar uno, y si no estás pulsando la tecla en el mismo momento 
en que yo llego a la línea 20, adjudico a t$ la cadena vacía, una palabra 
sin letras, y paso a la línea 30. 
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Si lo que tú quieres es que vaya así de rápido, pero que espere a 
que pulses alguna tecla, puedes usar la estratagema que usan todos los 
programadores de juegos, prolongar la línea 20 así: 


20 LET tS = INKEYS : IF tS = a THEN GO TO 28 


Fijate en que las comillas señaladas por la flecha están pegadas, entre 
ellas no hay ningún sitio libre. Al llegar a esta línea me lío a dar vueltas 
en ella hasta que pulsas alguna tecla; te será fácil comprobarlo pasando 
el programa. 


Máquina de escribir 


Puedo escribir en la pantalla de la tele como si fuese una máquina 
eléctrica; no tienes más que emplear esta pequeña modificación del pro- 
grama anterior: 


10 REM Maquina de escribir 
20 LET t$=INKEY$: IF t$="" THEN GO TO 20 


30 PRINT t8: 
48 GO TO 2D 


Como ves, sólo escribo el punto y seguido, pero no punto y aparte. 
Puedes mejorar el programa, tomando como clave de éste algún símbo- 
lo que no se use. 


Si te parece que corro demasiado, puedes intercalar una instrucción 
PAUSE, para que “repose” un poco. Poniéndo 


35 PAUSE 50 


deberá bastar. 


Máquina de escribir trucada 


Otra cosa que podemos hacer, es cambiarle todo a quien vaya a 
escribir a máquina con ese programa, de manera que cuando quiera 
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mayúsculas le salgan minúsculas, y al revés. El procedimiento se puede 
describir así: 


Repetir 


Fin 


Entrar carácter (t$) 
Si el código de t$ está entre 65 y 90 (mayúsculas) 
entonces 
Hacer código = código +32 (es el de la misma 
letra, pero minúscula) 
si no (caso de no ser mayúscula) 
Si el código de t$ está entre 97 y 122 (minúscula) 
entonces 
Hacer código = código — 32 (es el de la misma 
letra, pero mayúscula) 
Fin_de Si 
Fin _de Si 
Escribir carácter correspondiente al nuevo valor del 
código 
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El diagrama de flujo es éste: 


PRINCIPIO 


código = código = 
código + 32 código— 32 


Fig. 29.1 
Y el programa resultante será: 


2000 REM Mecanografía invertida 

2010 LET AS=INKEYS: IF A$=""THEN GO TO 2010 

2020 LET codigo=CODE A$ 

2039 IF codigo>=65 AND codigo<=99 THEN LET codigo=codi 
go+32:GO TO 22850: REM Era mayuscula 

2040 IF codigo=>=97 AND codigo<=122 THEN LET codigo=codi 
go-32:GO TO 22050:REM Era minuscula 

2050 PRINT CHRS Codigo: 

2068GO TO 2000 


Movimiento 


También puedes usar esta instrucción para ayudarme a mover un 
punto. En los juegos se suele apretar teclas diferentes para lograr que 
una figura se mueva en una dirección u otra. Mira cómo se puede hacer: 


19 REM movimiento para juegos 

20 LET Mhor=2200: REM Rutina de mov. horizontal 

30 LET Mver=3200: REM Rutina de mov. vertical 

40 REM Situo el punto 

5DLETF = 10: LET C=16 

1909 OVER 0: PRINT AT F, C:;"*":REM Dibujo el punto 
110LET AS=INKEYS: IF A$="" THEN GO TO 110:REM Espero 
120 1F CODE A$<49 OR CODE A$>52 THEN GO TO 110: REM 
Esa tecla no vale 

130 IF VAL A$<=2 THEN GO SUB Mhor 

148 1F VAL A$>=3 THEN GO SUB Mver 

158 GO TO 1202 

168 STOP 

200 REM Mhor 

210 1F (C=8 AND A$="1") OR [C=31 AND A$="2") THEN GO TO 25 
D: REM No se puede mover 

220 OVER 1: PRINT AT F,C;:"*":REM Se borra el anterior 

230 1F A$="1" THEN LET C=C-1:REM Mover a izquierda 

240 1F A$="2" THEN LET C=C+1:REM Mover a derecha 

2528 RETURN 

300 REM Mver 

310 1F (F=Q0 AND A$="3") OR [F=21 AND AS="4") THEN GO 
TO 350:REM No se puede mover 

328 OVER 1: PRINT AT F,C:;"*":REM Se borra el anterior 

330 1F A$="3" THEN LET F=F-1:REM Mover hacia arriba 

34D IF AS="4" THEN LET F=F+1:REM Mover hacia abajo 

352 RETURN 


RESUMEN 


INKEYS$: toma el valor de la tecla que se está pulsando 
en el momento de su ejecución; si las teclas 
fuesen dos o más, las ignoraría. 
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30 
VOY A SER UN ORGANO 


Uso del teclado para simular un órgano 


191 


eleg 


Sedan Seuelg SIUOIDPIQIA Se9yoJOD) 112070) 
CIP 
PAB1DOo 
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170370) So 
EN 
qe q 108 
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Con el programa de este capítulo me transformo en un órgano. 


18 REM Organo 
15 BORDER 0: PAPER 2: INK 7: CLS 


20 PRINT AT 3,3:"PULSANDO q DA LA OCTAVA ALTA" 

22 PRINT AT 9,3:"PULSANDO a DA LA OCTAVA MEDIA" 
25 PRINT AT 6,3:"PULSANDO z DA LA OCTAVA BAJA" 

35 PRINT AT 12,3,INVERSE 1:"PULSANDO v DA VIBRACIO 


NES" 


38 PRINT AT 15,3: INVERSE 1:"PULSANDO b DA BLANCAS" 
48 PRINT AT 21,3, INVERSE 1:"PULSANDO c DA CORCHEAS" 
45 PRINT AT 18,3: INVERSE 1:"PULSANDO n DA NEGRAS" 


50LET k=D: LET x=.3 

80 1F INKEYS="q" THEN LET k=12 
82 IF INKEYS="z" THEN LET k=-12 
85 IF INKEYS="w" THEN BEEP x.D+k 
90 1F INKEYS="3" THEN BEEP x,1+k 


IF 


INKEYS="e" THEN BEEP x,2+k 
INKEYS="4" THEN BEEP x,3+k 
INKEYS="r" THEN BEEP x.4+k 
INKEYS="t" THEN BEEP x,5+k 
INKEYS="65" THEN BEEP x.,6+k 
INKEYS="y" THEN BEEP x,7+k 
INKEYS="7" THEN BEEP x,B+k 
INKEYS="u" THEN BEEP x,9+k 
INKEYS="8" THEN BEEP x,1D+k 


100 IF INKEYS="¡" THEN BEEP x,11+k 


195 IF INKEYS="a" 
107 IF INKEYS="v" 
108 IF INKEYS="b" 
110 1F INKEYS="n" 


THEN LET k =0 
THEN LET x=.03 
THEN LET x=.5 
THEN LET x=.25 


115 1F INKEYS="c" THEN LET x=.125 
138 GOTO 80 


DO 
SO e M 
Eb RE 
Fig. 30.2 
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Ya te habrás dado cuenta de que en el pentagrama tenemos notas 
diferentes con el mismo nombre. Para distinguirlas se dice que son la 
misma nota pero de distinta octava (una octava completa la forman las 
siete notas DO, RE, MI, FA, SOL, LA, SD. 


Según queramos que la canción suene más grave o más aguda 
usaremos las octavas bajas, media o alta. Si no me indicas nada, tocaré 
la octava media; para cambiar a la octava alta debes pulsar (Q), para 


pasar a la baja y para volver a la octava media (A). 


En la fila de los números aparecen las notas con belmol y sosteni- 
do, si no entiendes de música te basta con saber que RE bemol (Re b) y 
DO sostenido (Do +) son la misma nota y, además, que es una nota 
intermedia entre Do y Re; algo más alta que Do y más bajá que Re. Por 
lo que atañe a duración sólo he incluido blancas, negras y corcheas, que 
son las más usuales; si quieres más, puedes completar tú el programa 
con instrucciones INKEY$ que varien el valor x (duración). 


Hace falta practicar algo para que las canciones suenen bien; aquí 
tienes algunos ejemplos: 


TRES HOJITAS MADRE 


Tres ho - ji - tas, ma - dre,  tie- ne el ar - bo. - lé: 


pie. las dos en el pie. To -  nés, 1 -  nés Il - ne - si + I - nés, 


tienes que pulsar: certyuuuun8yobou.. 


SI LA NIEVE RESBALA (Asturias) 


Si la nie - ve res - ba - la por el ¡sen - de - ro. va no ve- réa la 


mo - za que yo más quie-ro; Ay a  - mor si la  nie- ve res- ba - la  quéharé 70) 


Para esta canción tienes que pulsar la siguiente sucesión: 
Po OE e: e: O ad ES UE a A a O AD A A > 
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31 
DIBUJOS ALEATORIOS 


Dibujos aleatorios en color y línea. 


Mondrian 


Por extraño que te parezca, los números aleatorios .pueden servir 
para pintar. Un ejemplo sencillo, y que da resultados sorprendentes, es 
el que consiste en poner el color del borde y el del papel, así como el 
brillo de éste, al azar, y luego pintar un cierto número de rectángulos de 
dimensiones, situación y color aleatorios. El algoritmo de este sistema 
es el siguiente: 


Rifar el número de rectángulos (nr), el borde, y el color y brillo del 
papel 
Poner el borde y el papel 
Repetir nr veces (tantas como rectángulos se van a pintar) 
Rifar brillo, color, ancho, alto, primera fila (fp) y primera 
columna (cp) del rectángulo 
Poner brillo y color 
Repetir tantas veces como filas tenga de alto (contador f) 
Repetir tantas veces como col. tenga de ancho (contador c) 
Pintar un cuadradito en f+fp, c+cp 
Siguiente columna 
Siguiente fila 
Siguiente rectángulo 
FÍN 


El programa queda así: 


18 REM Mondrian aleatorio 

29 RANDOMIZE 

32 INPUT "Numero maximo de rectangulos":Nrectangulos 
100 REM Borde y fondo 

119 BORDER INT (RND*8B] 


195 


120 PAPER INT (RND*8):BRIGHT INT (RNDx*2):CLS 

2090 REM Dibujo 

21M LET Nrectangulos=RND+*Nrectangulos + 1 

2209 FOR r=1 TO Nrectangulos 

230 REM Caracteristicas del rectangulo 

240 PAPER INT (RNDx6) :BRIGHTINT (RND*x2) 

250 LET pcolumna=INT (RND*32):REM Primera columna 
260 LET pfila=INT (RND*22):REM Primera fila 

270 LET anchura=INT (RNDx*(32-pcolumna)):REM Anchura 
280 LET altura=INT (RNDx*(22-pfila) ): REM Altura 

299 FOR f=1 TO altura 

300 FOR c=1 TO anchura 

310 PRINT AT pfila+f.pcolumna+c:" " 

3228 NEXT c: REM Siguiente columna en la misma fila 
338 NEXT f: REM Siguiente fila de este rectangulo 

348 NEXT r: REM Siguiente rectangulo 

359 STOP 


Cordillera 


Otra posibilidad es utilizar los números aleatorios para dibujar 


paisajes. Me salen unas cordilleras que no están nada mal; lo que hago 
para dibujarlas es esto: 
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Rifar la altura del horizonte (yo) 
Dibujar el horizonte 
Inicializar las variables 
Repetir 
Rifar aumento de x (ax, cuánto más a la derecha va a estar el 
siguiente pico) 
Sumar ax a lo que ya nos hayamos desplazado (Sx) 
hasta que Sx=>255 (se acabó la pantalla) 
hacer (mientras eso no ocurra) 
Subrutina de : Cálculo de Sy (altura del siguiente pico) 
Dibujo del tramo siguiente 


Fin de repetir 
Dar a ax el valor necesario para terminar (ax =255 — Sx+ ax) 
Subrutina otra vez 

FIN 


El diagrama de flujo quedará así: 


PRINCIPIO 


Inicializar 


Fig. 31.1 
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y el programa va a ser éste: 


19 REM Cordillera aleatoria 

20 INPUT "Factor de lejania (lejos con numero pequeno y cerca co 
n grande)":f 

39 RANDOMIZE 

100 REM Linea del suelo 

MOLET y0=40+48*RND 

120 PLOT 0.yD: DRAW 255,0 

200 REM Preparar las variables 

21MDLET sx=D: LET sy=y8 + [(175-yD JÉRND 

220 LET rifa=390 :LET final=400:LET subrutina=520 

308 REM Dibujar la cordillera 

310 PLOT sx.sy 

320 REM ax es el aumento en la horizontal de un punto al siguient 
e:ay es la variacion en la vertical 

33DLET ax= f*RND: LET sx=sx+ax:REM Siguiente punto para dibu 
jar 

348 IF sx>=255 THEN GO TO final 

352 REM Si sx<255 seguimos en la pantalla 

362 GOSUB subrutina 

378 GO TO rifa 

400 REM Dibujar el final de la cordillera 

410LET ax= 255 - sx + ax:GO SUB subrutina 

428 STOP 

589 REM Subrutina para calcular la altura del pico y dibujar 

510 REM Altura del pico 

520 LET ay=SGN (2*RND-1)]*RND*ax 

530 REM Si el pico sale de la pantalla o esta bajo el suelo serepite 
540 IF sy+ay >175 OR sy+ay<y2 THEN GO TO 5280 

550 LET sy=sy+ay 

560 REM Dibujo 

570 DRAW ax.ay 

589 RETURN 


Cuando haya acabado de dibujar la cordillera, puedes usar la ins- 
trucción CIRCLE para decirme que pinte la Luna, elevándose sobre los 
montes; si lo haces, ten cuidado dónde la pones y de qué tamaño la 
pides. Si el paisaje no es de la Tierra, puedes poner más de una luna. 
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32 
FUNCIONES 


DEF FN. FN. Funciones numéricas y alfanuméricas. Representación de 
funciones. 
El Puente 


En los puentes de bóveda, como el de la figura, a la distancia entre 
los soportes se llama /uz (L) y a la longitud (f) se le llama flecha. Puedes 
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pensar en el puente como si fuese una 
lámina de hormigón armado que sube, 
se comba y vuelve a bajar. El peso má- 
ximo que puede soportar esta lámina, 
L la carga de seguridad del puente, depen- 
de de su luz, flecha y espesor (e), y se 
puede calcular con la fórmula siguiente: 


Fig. 32.1 


e 
Carga de seguridad = 12.000 FTE (QL +3f+5€e) 


Para realizar cálculos, puede ser necesario emplear varias veces una 
misma fórmula, y entonces resulta más cómodo y claro usar una abre- 
viatura; en Matemáticas se usan las funciones. La fórmula anterior se 
podría escribir así: 


É 
c(e, f, L)= Ea (Q2L + 31 + 5e) 


En BASIC también se pueden usar las funciones, diciendo que son 
funciones, y sólo después de haberlas definido. Para usar la carga de 
seguridad como función en un programa, tendríamos que hacer lo 
siguiente: 


primero, definir la función E en una de las primeras 


DEF FN 
lineas del programa, antes de intentar hacer cálculos con ella (línea 20); 


después, ya se puede emplear c (e, f, L), aclarando siempre que es 


una función (A (línea 30). 


FN 


12 REM Carga de seguridad de un puente 

20 DEF FNCle.f.LJ=12000* e x* (2 + L+3 x f+5 x eJ/L2 
30 LET e=0,.5: LET f=2: LET L=8 

480 PRINT FN Cle,f.L] 

58 STOP 


Para centrar la atención en las instrucciones DEF FN y EN, he 
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puesto un programa muy ligado al puente cercano a mi castillo. Te re- 
sultará muy fácil poner algún INPUT en la línea 30 para generalizar el 
programa. Hazlo. 


La forma en que una pequeña variación de la luz, por ejemplo, 
afecta a la carga de seguridad se puede conocer aplicando esta fórmula: 
_ ENc(0.5, 2, 8 + 0.001) — FNc(0.5, 2, 8) 

0.001 


Dc 


Podemos alterar el programa anterior para que nos diga, no sólo 
qué peso puede soportar el puente, sino también cómo le afecta a la 
carga de seguridad una variación pequeña de alguna de las variables. 
Para una variación de la luz, queda este programa: 


500 REM Variacion de la carga de seguridad 

519 DEF FN cle.f.L)=12000* e * (2 * L+3 * f+5 * el/LÍ2 

520 INPUT "Espesor":;e 

530 INPUT "Flecha":f 

548 INPUT "Luz [es la componente que consideramos variable)":L 
550 PRINT "El puente con luz ":L;", espesor de hormigon ":e:" y f 
lecha ":f:" (medidos en metros), puede soportar una carga de ":FN 
cle.f.L):"Kg." 

560 LET _Dc=[(FN cle.f.L+,001)-FN cle.f.LJ)/.001 

570 PRINT: PRINT "Al aumentar un poco la luz. la proporcion 

de aumento en la carga de seguridad es de ":Dc:" por m." 

589 STOP 


Funciones sobre palabras 


Como ves, las funciones que yo empleo son más potentes que las 
de casi cualquier ordenador personal: pueden tener varias variables y 
no ser numéricas. Puedes definir funciones cuyas variables y resultado 
sean palabras o palabras y números. Por ejemplo, puedes definir una 
función que coja una palabra y seleccione sus primera y última letras: 


20 DEF FNHS (pS)=p8 (1 TO1J+pSILEN pS TO LEN pS) 
o la mitad primera, 


32 DEF FN ms [(p8)=Ps(1 TO INT (LEN p$/2)+1) 
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o bien, tantas letras desde el principio y el final como se le indiquen, 
igual que en este programa: 


19 REM Funcion numerico-literal 

20 DEF EN fS(pS.p.f)=p$(1 TO p)J+psS(LEN p$-f TO LEN p$) 
39 PRINT "Palabra": INPUT LINE p$ 

40 INPUT "Letra desde el principio y desde el final":p.f 
52 PRINT "El resultado es ":FN f$ 

68 STOP 


Más entretenido puede ser jugar con el eco: 


10 REM Eco que espera a que alguien grite 

20 DEF FN es[pS)=p$5+"..."+pS(LEN p$-5 TO LEN pS)+"..."+pSILEN 
p$-3 TO LEN p5S)+"..."+pSILEN p$-3 TOLEN p8) 

30 INPUT LINE p$ 

49 CLS: PRINT FN es(p$): GO TO 30 

50 STOP 


Gráficas de funciones 


Sólo por lo que te he contado ya, podrías estar orgulloso de mi 
capacidad para trabajar con funciones; pero es que, además, puedo usar 
¡VAL 


la función var((3 par transformar una “palabra” en una fun- 


ción. Sabes que si una palabra está formada por cifras, por ejemplo “24”, 
no es dos docenas, sino la unión de dos símbolos (un patito y una silla 
patas arriba), a los que no corresponde, por el momento, ningún valor 
numérico; para que ese "24" se pueda dividir por 2 y dar 12, es necesa- 
rio que yo calcule antes VAL ("24"), 


Todo esto ya lo sabes, lo que no sabes es que si a una variable alfa- 
numérica le das el valor "2*x— 3", cuando me ordenes calcular VAL 
("2xx — 3") buscaré el valor de x, le multiplicaré por dos y le restaré 3; 
el resultado será VAL ["2x*x— 3"). 


Empleando estas últimas cosas que te he explicado, puede resultar 
bastante más cómodo todavía usar funciones, ya que con VAL puedes 
convertir en función una expresión algebraica cualquiera. Vamos a ver 
cómo se programaría la representación de curvas: 
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190 REM Curva 

118GOSUB 1000: REM Eleccion de funcion 

120 GO SUB 1200: REM Situacion de los ejes y valores auxiliares 
130 GO SUB 1488: REM Representacion 

140 STOP 

1509 REM 

1000 REM Eleccion de funcion 

1010 PRINT "Expresion de la funcion elegida" 

1020 INPUT LINE f$: PRINT fS: PRINT 

1838 RETURN 

1D REM A A A AKÁ 

1200 REM Situacion de los ejes y valores auxiliares 

1210 INPUT "Posicion del origen (la x entre Y y 255 la y entre B y 
175)":x0,yo 

1220 PRINT "Origen en [":xo:","; yo;").": PRINT 

1230 LET minx=-x0 : LET maxx=255-x0 

1248 LET miny=-yo: LET maxy=175-yo 

1259 PRINT "Estan en pantalla los valores de x comprendidos entr 
e "¿minix:" y "¿maxx:", y los de y comprendidos entre ":miny:" y " 
maxy."." 

1260 PAUSE 109 

1270 CLS 

1289 PLOT A. yo: DRAW 255,B 

1292 PLOT x0.2: DRAW B,175 

1380 RETURN 

1 310 REM 

1480 REM Representacion 

1410 FOR x=minx TO maxx: REM Para todos los valores de x en p 
antalla 

1420 1F VAL f8>=miny AND VAL f$<=maxy THEN PLOT x+xo0, 
VAL f$+yo: REM Si el punto esta dentro de la pantalla, entonces 
se pinta 

1438 NEXT x 

1440 RETURN 


Como ves, el programa tiene tres partes claramente diferenciadas 


que se tratan como subrutinas independientes. Puedes probarle con 
esta función que te sugiero o con otras que tú elijas: 


3 
x— 40 yo 
20 
en BASIC se escribe así: 


1/20 * (x — 40) x ((ABS (x) 12) 1 (1/3) 
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Fig. 32.2 


RESUMEN 


DEF EN f(x):permite definir la función f(x). Es necesario 
hacerlo antes de intentar calcular su valor. La 
función puede ser numérica, alfanumérica O 
mixta; sus argumentos pueden ser variables, 
pero no funciones. Pueden tener varios argu- 
mentos. 


FN f(X): calcula el valor de la función f(x). 
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33 
EL METRO 


Empleo de color en dibujos de precisión. 


Comparación de curvas 


En ocasiones resulta interesante superponer las gráficas de varias 
funciones; por ejemplo para observar el grado de aproximación entre 
ellas. Podemos lograrlo reformando ligeramente el programa de repre- 
sentación de curvas del Capítulo anterior. Se toma la subrutina de elec- 
ción de origen (1200 a 1310) y, tras ejecutarla una sola vez, se repiten 
las subrutinas de elección de función (1000 a 1030) y de representación 
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de curva (1400 a 1440) tantas veces como lo deseemos, como indica este 


diagrama de flujo: 
PRINCIPIO 


“Represento 
otra“: C$ 


El programa quedará así: 


1909 REM Representacion de varias curvas 

119 GOSUB 1200 : REM Ejes y valores auxiliares 

120 INPUT "Represento otra (s/n) ":CS: IF NOT C$="S" THEN GO 
TO 16D 

138 GOSUB 1200: REM Elegir funcion 

148 GOSUB 140: REM Representacion 

150 GO TO 120 

168 STOP 


Para evitar que el letrero de la línea 1010 estropee las curvas que ya 
tenga dibujadas, será mejor quitar esa línea. Una vez que me hayas 
dado todas la instrucciones del programa, puedo echarlo a andar, y si 
me das varias funciones, las representaré juntas. Puede ser interesante, 
por ejemplo, situar el origen en (120, 80) y representar las funciones: 
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e Xx ] >, l > 
res Pibe > Pl 
20 2 X.:20 3 20 
que en BASIC se expresarían en la forma: 


10 + EXP (x/2D) 


10 + [(1+x/2D + 1/2 * x/20 * x/2D + 1/3 * x/20 * x/20 * x/20) 


Para representar las curvas juntas, sabes que tienes que darme la 


expresión de la primera y contestar con la tecla cuando te pregunte 
si quieres otra; después me dices cuál es la segunda. 


Aún más interesante puede ser alterar la línea 1020 (la 1010 ya no 
existe) e introducir otra 1025, de manera que queden así: 


1220 INPUT LINE f$ : INPUT "Color": C 
1025 INK C: PRINT fs 


lo demás sigue como antes. Con esta pequeña alteración pinto cada 
curva de un color. Vamos a representar otra vez las curvas de antes, 
eligiendo para ellas los coleres rojo y verde. 


Fig. 33.2 


Si no haces trampa y empleas las funciones y colores que te indico, 
verás que el dibujo va muy bien, menos cuando se quiere pintar, con 
colores distintos, dos cosas muy cercanas. Cuando se pinta una curva 
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roja cerca del eje negro, el eje se contagia del nuevo color en un trozo; si la 
curva verde se aproxima a la roja, la contagia su color en la zona en 
que están cercanas. Esto se deba a que considero dos zonas en la panta- 
lla, el borde y el papel, y esta última la divido en 704 cuadraditos (dispues- 
tos en 32 filas y 22 columnas), en los cuales pongo las letras, números y 
otros garabatos; pues bien, en cada uno de estos cuadraditos sólo puede 
haber dos colores, el del papel y el de la tinta, y si cambio de tinta y 
pinto en un cuadradito en que ya lo hice, entonces lo que antes estaba 
pintado con una tinta, se cambia automáticamente al nuevo color. En el 
próximo capítulo lo veremos con más detenimiento. 


Puente con cimientos 


Este programa representa un puente de ferrocarril sobre una 
vaguada. Se representa el terreno irregular y luego el puente. El terreno 
es verde y el puente morado. Se podía intentar evitar el contagio de 
colores, pero en lugar de eso se usa para pintar los cimientos del puen- 
te. El programa, que con lo ya visto carece de dificultades, es éste: 


7 REM puente 

19 REM Cielo 

20 PAPER 5: CLS 

39 BORDER 5 

4D INK Y > 

99 REM suelo 

100 FOR x=-127 TO 128 

125 LET y=60/(1+( ABS x/50 J12) 

130 1F ABS y<B7 THEN PLOT x+127,87-y: DRAW Q,-(87-y) 
140 NEXT x 

192 REM puente 

20M INK 3 

210 PLOT A, 148: DRAW 255,B 

220 FOR x=-122 TO 1208 STEP 39 

239 FOR ¡=D TO 9 

250 1F x+i>255 THEN GO TO 298 

269 PLOT x+i+127, 1480: DRAW Q,-69/(1+(ABS (x+i)/50)Í 2)-53 
270 NEXT ¡ 

2809 NEXT x 

299 STOP 
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Plano del Metro 
Normalmente el plano del Metro se dibuja empleando un color 


distinto para cada línea. Además, esta líneas no solo se aproximan, sino 
que se tocan y cruzan. Tengo que dibujar curvas muy cercanas sin que 


Fig. 33.3 


se contagien los colores. Sólo lo puedo lograr si en ningún cuadradito de 
la pantalla coinciden dos líneas; para lograrlo, si por ejemplo, se cruzan 
la línea verde y la azul, puedes situar las rectas como en la figura 33.4; 


Fig. 33.4 


así, en cada cuadradito sólo hay una línea y no se produce contagio. 


Con el programa, cuyo diagrama de flujo deberías hacer tú como 
ejercicio, me limito a leer los datos correspondientes a siete líneas, que 
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represento con los colores asociados a los números del 0 al 6. Lo que 
puede resultar más interesante es que los valores que me permiten dibu- 
jar las líneas van precedidos, cada par de ellos, de un número que si es 3 
me indica que ya he terminado con esa línea, y si es uno o dos, me diri- 
gen a las subrutinas 400 ó 500 (línea 330) para dibujar un segmento o 
saltar a un punto separado. Estudia con detenimiento la línea 330, 
porque las líneas de este tipo pueden ser muy útiles. 
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19 REM METRO 

20 BRIGHT 1 

30 BORDER 7:PAPER 7:CLS 

100 REM Siete lineas de metro 

110 FOR L=0 TO 6 

120 REM Repetir desde aqui hasta 162 

138 READ Dato 

149 IF Dato=3 THEN GO TO 17D: REM FIN de linea 
158 GOSUB 30M: REM Sigue la misma linea 

168GO TO 12D 

170 NEXT L 

199 STOP 

199 REM 

309 REM Subrutinma grafica 

310 READ ah.av 

320 REM Segun sea Dato se hace un tipo de dibujo 
332 GOSUB 300+100* Dato 

348 RETURN 

399 REM————————_= 

489 REM Subrutina para dibujo seguido 

410 DRAW INK L,ah.av 

428 RETURN 

499 REM 

5809 REM Subrutina para localizar nuevo punto 

510 PLOT INK L,ah,av 

520 RETURN 

599 REM 
1000 REM Datos de las lineas 

1910 REM Linea 1 

1920 DATA 2,32.152,1.0,-32.1.16.-16,1.15,0,2.64,193,1,31.8,2,96,104, 
1,15,0,2.112.183,1.31.0.2.14,4,104,1,15,8,2.160.103,1,32.2,1.56.-56.3 
1030 REM Linea 2 

1040 DATA 2.,63.1B83.1.8,-39.1.48,-48,1,.24,0,2,128,23,1.32.0,2.160,24, 
1,24,0,1,32,32,1.0,8,2.216.64,1.-1,16 

1959 DATA 2,216,88,1,2,31,1.-40,40,1.-24,0,2,.151,152,1,-15,-1,2,135, 
152,1,-39,9,1.-32,-32,1.2,-16,3 

1969 REM Linea 3 


1070 DATA 2,151,167,1,-15,-15,2,135,151,1.-23,-23,1,0,-24,2,111,1D 
3,1,1,.-15,2,111,87,1.2,-8,1.-56,-56,1,D,-23,3 

1080 REM Linea 4 

1099 DATA 2.56.,0.,1.48,2,1,55,55,2,16M,56,1.2,32,2.159,88,1.,2,15,2,16 
2,104,1,32,0,1,48,48,3 

1100 REM Linea 5 

1110 DATA 2,64,168,1.2,-33,1,48,-48,2,112,87,1,31,1,2.144,87,1,15,0, 
2,162,88,1.,7.,2,1,56.-56,1,2,-24,3 

1120 DATA 2,39,111.1.0,-56,1.32,0,2,56.1. o ,.88,5 y 1,39,0,2,128,5. 
6,1,31,28,2.162,55,1.23,8,1.9,9,1,23,0,2,216.63,1.15,2,1,.8,8.1.0,32,3 
1140 REM Linea 7 

1159 DATA 2,152.167.1.0,-15,2,151,151,1.0,-24,1,-8,-8,1,.8,-15,2,144, 
103.1,0.-15,2,143,87,1.-16,-16,1.0,-15.2,128,55,1,48,-48,3 
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34 
LISTAS DE NUMEROS 


Listas de números. DIM. Aplicación a la representación de curvas. 
Direccionamiento calculado. 


Listas de números 


Hasta ahora has visto dos tipos de variables, las numéricas y las 
alfanuméricas, en las que puedes guardar dos tipos distintos de valores; 
pero hay más tipos de variables. Ahora te voy a hablar de las /istas de 
números. Si las variables numéricas eran como jaulas y las alfanuméri- 
cas como peceras, éstas son como estanterías. Para poder usar la estan- 
tería, tienes que decirme antes cómo de alta la quieres, darle dimensio- 


nes (a y rápidamente la preparo, para que puedas poner un 


valor en cada estante. Podemos hacer un ensayo, crearé una lista que 
guarde en cada lugar el doble del número correspondiente, el dos en el 


primer lugar, el cuatro en el segundo, etc., y luego la escribiré. Va a 
quedar ésto: 


10 REM Lista 

20 REM Creacion de la lista 

39 DIM L(14): REM Lista con 14 lugares 
4 FOR e=1 TO 14 

5QLET LleJ=2*e 

69 NEXT e 

70 REM Escribo la lista 

80 FOR e=1 to 14 

99 PRINT "En el lugar ":e:" esta el numero ":L (e) 
100 NEXT e 

119S5TOP 


Otras formas de dar valores a una lista 


Igual se podría formar una lista dándole los valores con INPUT o 
con lectura de líneas DATA. Podemos, por ejemplo, formar una lista 
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cuyos valores sean los radios de los nueve planetas. La estructura de un 
programa que cree esta lista y nos permita consultarla, será algo así: 


E isa 


Fig. 34.1 


y el programa quedará de esta manera: 
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200 REM Planetas 

210 DIM P(g) 

220 FOR i=1 TO 9: READ P(i)J:NEX Ti 

230 REM Consulta 

240 INPUT"Desea conocer el radio y volumen de algun planetal(s/n) 
2"; C$:1F NOT C$="s" THEN GO TO 310 

252 INPUT "Que lugar ocupa el planeta?":lugar 

260 IF lugar <1 OR lugar>9 THEN PRINT "Ese no puede ser":GO 
TO 25D 

2809 PRINT: PRINT "Volumen ":P(i) 3 * 4/3:"km 3" 

299 GO TO 248 

329 DATA 2448,6052.6378,3394,71480,60000.2592224750,3800 
318 STOP 


Curvas a prueba de fallos 


En los programas de representación de curvas vistos hasta ahora se da 
la posibilidad de que, en algún momento, me vea forzado a hacer algo im- 
posible, por ejemplo dividir por cero; en ese caso dejaré de trabajar y 
pondré un mensaje de error en la pantalla. Prueba a representar la fun- 


X 


; poniendo el origen de coordenadas en el punto 


ción X 


40 40 
(120, 80). Cuando x vale — 40 dejo de trabajar, porque el denominador 
vale cero. 


Para evitar esto, lo mejor es construir una lista con los valores de x 
que anulan el denominador. Antes de representar cualquier punto 
puedo mirar si su x está en la lista fatídica, y si es así paso al punto si- 
guiente, evitándome problemas. Así pues, rectifico la subrutina 1000, de 
manera que además de la función (fs), doy la x de los puntos peli- 
grosos. 


1000 REM Eleccion de funcion 

1010 PRINT "Expresion de la funcion elegida 
1920 INPUT LINE f$: PRINT fS: PRINT 

10309 INPUT "Cuantos puntos peligrosos tiene esta curva ? (Contes 
ta Asi no tiene) ":pp 

1040 1F pp=0 THEN GO TO 18989 

1859 DIM plpp) 

1969 FOR i=1 TO pp 

1070 PRINT " x del punto ";i:: INPUT p(i): PRINT "-":p(i) 

1989 NEXT i 

1999 RETURN 


y rectifico también la subrutina 1400, para ver si el punto que me toca 
representar me prepara alguna sorpresa desagradable, y si es así paso al 
siguiente. Basta añadir estas líneas: 


1412 if pp=D0 THEN GO TO 1420: REM No hay puntos peligrosos 
1414 FOR i=1 TO pp: IF pli)=x THEN GO TO 1430: REM Este punto 
es peligroso. paso a otro 

1416 NEXT i 
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Elección de contestación múltiple 


Es posible que alguna vez te convenga plantear una pregunta con 
varias contestaciones. Las acciones a realizar en los diferentes casos 
pueden ser subrutinas cuyas direcciones estén guardadas en una lista. 
Mira un ejemplo industrial: 


El departamento de fundición de una fábrica, va a producir cilin- 
dros macizos de determinadas dimensiones para un cierto tipo de ma- 
quinaria. Al departamento de planificación le interesa conocer el volu- 
men de metal que va a emplearse en fundir cada pieza, para preparar el 
pedido de materias primas del próximo año; el departamento de diseño 
necesita conocer el peso de cada cilindro, para poder diseñar algunas 
otras piezas; y el departamento de costes necesita conocer el precio del 
material empleado en cada uno, para poder apreciar el costo total de 
cada máquina. Hemos de crear un programa que satisfaga las necesida- 
des de estos tres departamentos; estas necesidades son: 


Fundición Nuevos Productos Costes 
Dar dimensiones Dar dimensiones y Dar dimensiones y 
peso por unidad de precio por unidad 
de volumen de volúmen 
Obtener volumen Obtener peso Obtener precio 


Parece la cosa más natural del mundo crear una subrutina para uso 
común de los tres programas, y vamos a integrar los tres en uno solo, 
como subrutinas, de forma que el ordenador nos dé a elegir entre ellas. 


El diagrama de flujo del programa va a quedar así: 


216 


PRINCIPIO 


N>3óN<] 


217 


El programa será éste: 


19 REM PROGRAMA PRINCIPAL 
20 DATA 130, 170. 290 


39 DIM L (3) 

4D FORi=1TO3: Read LÍ(i) : Next i 
508 REM MENU 

6M CLS 

70 PRINT " VOLUMEN .....1 ": PRINT 
80 PRINT "PESO ....... sem Z ": PRINT 
90 PRINT " PRECIO ...... ... 3": PRINT 


100 INPUT " ELIJA UN NUMERO ": N 

105 IF N<1 OR N—>3 THEN GO TO 68: REM ese no vale 
110 GOSUB L (i] : REM Segun haya sido la eleccion se va a una sub 
rutina u otra 

120 STOP 

138 REM VOLUMEN 

140 GOSUB 3082 : REM CILINDRO 

150 PRINT " EL VOLUMEN ES "; V:"CM3 " 

168 RETURN 

170 REM PESO 

189 GOSUB 3299:REM CILINDRO 

199 INPUT " PESO POR CM3 (EN GRAMOS])":D 

200 P=V* D 

219 PRINT" PESO DEL CILINDRO =":P : "GRS" 
220 RETURN 

230 REM PRECIO 

248 GOSUB 3289 : REM CILINDRO 

2509 INPUT " PRECIO POR CM3": PR 

260 PT = V*PR 

270 PRINT " PRECIO DEL CILINDRO =" : PT:" PTS" 
280 RETURN 

3299 REM CILINDRO 

319 CLS 

320 INPUT "RADIO ":¿R 

3329 INPUT "LONGITUD":L 

349 V=PI + RÍ2*L 

358 RETURN 


Cuando pases este programa por el ordenador, prueba a dar a N 
valores que no figuren en el menú. ¿Qué pasará? 
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RESUMEN 


Lista: conjunto de variables ordenadas según un 
índice. 


DIM L (n): instrucción que da dimensión n» a la lista L. 
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33 
TABLAS 


Tablas. Tablas tridimensionales. 


Tablas 


A veces las listas se quedan cortas, o mejor dicho, se quedan estre- 
chas. Si quieres apuntar la temperatura a que solidifican una serie de 
cuerpos (agua, azufre, mercurio, alcochol etílico y oxigeno, por ejem- 
plo) una lista es suficiente, pero si te hacen falta también las tempera- 
turas a que hierven, entonces necesitas una tabla. 


Solidifica Hierve 
Agua 0 100 
Azufre 119 444 
Mercurio - 39 357 
Alcohol etílico -114 78 
Oxígeno -219 -183 
Fig. 35.1 


El uso de las tablas es idéntico al de las listas. Debes comenzar di- 
mensionando la tabla de esta forma: 


DIM t(5,2) 


Así, t es una tabla con cinco filas y dos columnas; después ya puedo 
poner números en ella. 


Vamos a hacer un programa sencillo que cree la tabla y luego la 
exhiba: 


100 REM Temperaturas 

110 DIM t(5,2) 

128 GOSUB 2882: REM Construir la tabla 
1328 GOSUB 250: REM Exhibir 
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140 DATA £,160,119,444,-39,357,-114,78,-219,-183 
1598 DATA "Agua"."Azufre","Mercurio","Alcohol etilico"."Oxigeno" 


168 STOP 
200 REM Construyo la tabla 


21M FOR f=1 TOS 


220 FOR C=1 TO 2: READ tÍf.c): NEXT c 


230 NEXT f 

240 RETURN 

259 REM Exhibir 
2609 FOR f=1 TO5 


270 FOR c=1 TO 2: PRINT t[f.c), : NEXT ce 


289 PRINT 
2909 NEXT f 
3089 RETURN 


Como ves, con la subrutina 200 leo la tabla, y con la 250 la escribo. 
Para que la presentación mejore, te sugiero cambiar la última por esta 


otra: 


259 REM Exhibir 


2689 PRINT AT 0,14 :"Solidifica": AT D,26:"Hierve" 


270 PRINT 


280 FOR f=1 TO 5: READ LS$:PRINT L$: 
290 FOR c=1 TO 2: PRINT TAB(1Mx*xc+8):t(f.c)::Next c 


320 PRINT : Next f 
310 RETURN 


Tablas tridimensionales 


Si escribes dos tablas como la anterior, ambas con las mismas di- 
mensiones, en dos hojas de papel y pones una hoja sobre la otra, como 
en un cuaderno, a lo que resulta se le llama tabla, o matriz, tridimensio- 


nal. Vamos a crear una tabla que contenga a estas dos: 


M1. 112 413 TR 115 
121 122 123 124 125 
131 132 133 134 135 


página 1 
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211 212 213 214 
221 222 223 224 
231 232 233 234 


página 2 


215 
225 
235 


fíjate que cada uno de estos números es igual al resultado de la siguien- 
te Operación: 


t(página, fila, columna) = 100 * página + 10 x fila + columna 


así, en la página 2, el lugar de la fila 1, columna 3, está ocupado por el 
número 213, y lo mismo para otros lugares. Un programa para crear y 
exhibir esta tabla tridimensional puede ser el siguiente: 


500 REM Tabla tridimensional 

505 DIM t(2,3,5) 

518 FOR P=1 TO 2: REM 2 paginas 
520 FOR F=1 TO 3: REM 3 filas 

539 FOR C=1 TO 5: REM 5 columnas 
548 LET t(P:F:C)=100*P+1Mx*F+C 

550 NEXT C 

5609 NEXT F 

578 NEXT P 

620 REM Exhibirla 

610 FOR P=1 TO 2 

628 PRINT "Pagina":P:PRINT 

639 FOR F=1 TO 3 

648 FOR C=1 TO 5 

659 PRINT TAB [6*C-2):t(P,F,C): 
5685 NEXT C:REM Todo valor en la misma fila 
570 PRINT 

6809 NEXT F:REM Otra fila de ¡a misma pagina 
699 PRINT:PRINT 

720 NEXT P:REM Otra pagina 
7105TOP 


Aplicaciones de las tablas 


La principal ventaja de la tablas sobre las líneas DATA es que te- 
nemos la información organizada, y la podemos exhibir o consultar de 
diversas manera, logrando así diferentes enfoques de unos mismos 
datos. 


Veamos un ejemplo: el departamento de contabilidad de una em- 
presa puede usar una tabla tridimensional para almacenar las ventas 
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hechas por sus tres vendedores cada uno de los cinco días de la semana, 
en las cuatro semanas del mes. 


Será una tabla de cuatro páginas (una por semana), tres filas (una 
por vendedor) y cinco columnas (una por día). Podemos preparar un 
programa que permita visualizar: 


DY nn — 


gn semana 
vendedor 3. ———— 


SS 


vendedor 1. ———— am me Y 
a — semana 
vendedor 2 
a ——— Semana 


semana 


Fig. 35.2 


12. —las ventas de un vendedor determinado en los veinte días la- 
borables; 

22. —las ventas de los tres vendedores los cinco días de una semana 
elegida; 

32 —los resultados de los tres vendedores en un día determinado 
de la semana, para todas las semanas del mes (por ejemplo, 
las ventas de los martes). 


El programa no puede ser muy corto, pero sí es muy sencillo: 


80M REM Ventas 

805 REM En cada linea estan los datos de una semana 
810 DATA 60,70,64,72,73,68,83,82,85.72.75,69,85,9M,88 
820 DATA 63,72,74,73,76,7,79.77,81.77,75,72,8M,85,91 
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839 DATA 69,68.,65,68.71.69,78,79,75,69,.76.,77,80,80,84 
840 DATA 70,56,62.72.74,67,74,76,76.78,81,80,79.74,76 
859 DIM M(4,5,3) 

860 REM Leer la tabla 

870 FOR S=1 TO 4:REM Y semanas 

889 FOR D=1 TO 5:REM 5 dias 

890 FOR V=1 TO 3:READ M[(S:DV)J:NEXT V 

909 NEXT D 

919 NEXT S 

915 REM Menu para eleccion 

9209 CLS:PRINT AT 2,0:"Ventas de un dependiente....1" 
930 PRINT AT 4,0: "Ventas una semana...2" 

948 PRINT AT 6.2 :"Ventas en un dia..... 3" 

9590 PRINT AT BM :"FiM..ccnccoo.. ..U" 


9609 INPUT "Elija un numero":n:1F n<l OR n>4 THEN GO TO 928 


97D 1F n=4 THEN STOP 

988 GOSUB 120Dxm:REM Subrutina apropiada 
9992 GO TO 922 

1000 REM Ventas de un empleado 


1010 INPUT "Tres empleados. elija uno por su numero":vend 


19820 CLS:PRINT "Ventas del empleado":vend :PRINT 
1030 FOR S=1 TO 4:PRINT "SEM":S: 


1048 FOR D=1 TO 5:PRINT TAB(5 + D+2):M(S,D.vend)::NEXT D 


120590PRINT:PRINT:NEXT S 

1969 GOSUB 1109 :REM Espera 

1070 RETURN 

1108 REM Parada 

1110 1F INKEYS="" THEN 1110 

1120 RETURN 

2000 REM Ventas en una semana 

2010 INPUT "Elija una semana":semana 


2020 CLS:PRINT "Ventas en una semana":semana:PRINT 


2039 FOR V=1 TO 3:PRINT "VEND":V: 


2040 FOR D=1 TO 5:PRINT TAB(5 x« D+2):Mí[semana.D:V)::Next D 


2050 PRINT:PRINT:Next V 

2062 GOSUB 1120:REM Espera 

2070 RETURN 

3000 REM Ventas en un dia de la semana 

3010 INPUT "Elija un dia":dia 

3020 CLS:PRINT "Dia:dia:"de la semana":PRINT 
3030 FOR V=1 TO 3:PRINT "VEND": V:; 


3040 FOR S=1 TO 4:PRINT TABÍ6 x«* S):M(S.dia.V)::Next S 


3050 PRINT:PRINT:Next V 
3860 GOSUB 1100:REM Espera 
3070 RETURN 


Nada te impide emplear tablas con un número superior de dimen- 
siones, aunque su dificultad de comprensión puede aumentar más rápi- 
damente que el número de dimensiones. 


RESUMEN 


Tabla: conjunto de variables ordenadas según varios 
índices. 
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36 
LISTAS DE PALABRAS 


Listas y tablas alfanuméricas. 
Listas de palabras 


Ya has usado listas de números, pero muchas de las listas que más 
corrientemente se emplean están formadas por palabras. También 
puedo trabajar con este tipo de listas; igual que con las otras, tienes que 
comenzar dándoles una dimensión; para que sean de letras y no de nú- 
meros, el nombre de la lista debe ir seguido del signo $. 


Un problema que presentan estas listas es que sólo puedo poner 
una letra en cada lugar, aunque hay una manera sencilla de resolverlo. 
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Vamos a hacer un pequeño ejercicio para sentar las ideas. Prueba este 
programa: 


10 REM Lista alfanumerica 

22 REM Formar la lista 

32 INPUT "Que longitud tiene la lista ":long 
48 DIM Ls(long) 

50 FOR ¡=1 TO long 

60 PRINT "Letra en el lugar":i: 

70 INPUT LS(i):PRINT " ":LS(i) 

89 NEXT ¡ 

909 PAUSE 188 

190 REM Exhibirla 


110 CLS 

128 FOR ¡=1 TO long 

130 PRINT "Lugar";i:" letra ":LS$(i) 
148 NEXT i 

158 STOP 


Trata de engañarme poniendo una palabra en lugar de una letra, a 
ver si me equivoco. 


También puedo guardar las letras en la lista. Puedo guardar el alfa- 
beto, por ejemplo, y contestarte luego la letra que desees. Para conse- 
guir el alfabeto hago uso de la función CHR$, que asigna al número 65 
la letra A, al 66 la B, etc. El programa quedará así: 


200 REM Alfabeto 

2109 REM Formar la lista 

220 DIM As(26) 

230 FOR ¡=1 TO 26: LET As(i)=CHRS(i+64):NEXT i¡ 

248 REM Contestar a preguntas 

259 PRINT "Si quieres que ponga una letra, indica su lugar en el al 
fabeto [pon £ para terminar)":INPUT n 

269 IF n>2 AND n<=26 THEN PRINT:PRINT "La letra ":A$(n):"oc 
upa el lugar ":n: PRINT : GO TO 258 

270 STOP 


Observa que a las líneas 250 y 260, por sí solas, se les puede hacer 
corresponder un diagrama de flujo. Represéntalo. 


Como en cada lugar de una lista alfanumérica sólo puedo poner 
una letra, para escribir una lista de palabras, debo tratarla como una ta- 
bla o matriz bidimensional, con tantas filas como palabras tenga la lista 
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y con tantas columnas como letras tenga la palabra más larga. Por 
ejemplo, con DIM T$ (4, 6), preparo una tabla con 24 celdillas, cuatro 
de alto y seis de ancho. Cada una de las letras se puede localizar por la 


fila y la columna en que se encuentra; la única “o” de la lista de pala- 
bras se encuentra en el lugar (2, 5) de la tabla de caracteres. Si en lugar 
de T$ (2, 5), preguntases por T$ (3), te contestaré “puerta”, porque 
cuando sólo hay un índice, supongo que es el de la fila, y que quieres 
conocerla entera. Vamos a escribir un programa que crea una lista de 
nombres y permite consultarla después, para aclarar esto de los índices. 


300 Lista de palabras 

319 DIM 15(4,20): REM Lista de 4 nombres de 28 letras o menos 
3289 FOR n=1 TO Y 

339 PRINT "Nombre ":n:: INPUT 1$(n): PRINT " ":1S(n) 

348 NEXT n 

359 PAUSE 100:PAPER 1 : INK 9:CLS 

360 PAPER 6 

379 FOR n=1 TO 4:PRINT IS(n):NEXT n 

382 INPUT "Escribe el nombre que esta en el lugar....":n: PRINT 
¿PRINT 15(n) 

392 INPUT "Escribe la letra que esta en la fila y columna...":f.c: 
PRINT:PRINT 15(f,c) 

400 INPUT "Otra [(s/n)":cS:1F c$="s" THEN GO TO 398 

418 STOP 
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SS 
CHARLATAN 


Conversación 


A mí me gusta mucho hablar, pero únicamente lo hago con perso- 
nas como tú, a las que ya me une una cierta amistad. Cuando hablo, 
empleo frases en las que sólo pueden aparecer los elementos siguientes: 


Sujeto, 

Predicado, ampliación del concepto de verbo, 
Complemento Circunstancial de Tiempo, 
Complemento Circunstancial de Modo, 


Nexo entre una frase y la siguiente, caso de haber dos, 
la partícula “No”. 


Para entender mejor cómo hablo, puedes guiarte por este esquema: 


C. C. Tiempo 


IX 


Inicio 2% Sujeto DO predicado 


0,2 
(0,3) 


Nexo 


Fig. 37.1 
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Llamamos nodos a los puntos de los que parten, o a los que llegan, 
flechas. En cada nodo de diagrama elijo un camino al azar, generando 
números aleatorios. No todos los caminos son igualmente probables. 


Los caminos que salen del Predicado tienen asociados dos núme- 
ros, y lo mismo los que salen del C.C. de Modo; en ambos casos, el nú- 
mero sin paréntesis es la probabilidad del camino si en esa frase no 
aparece el C.C. de Tiempo antes del Predicado; y el que lleva paréntesis 
es la probabilidad del camino, si el C.C. de Tiempo ya apareció. Para 
mayor comodidad tengo estos números guardados en dos tablas, P y M, 
que tienen dos filas y tantas columnas como caminos salen del nodo en 


cuestión. 
0.3 0.55 0.8 1 0.4 0.7 1 
A) 
0,4 0.7 0.7 1 0.6 0.6 1 
En estas tablas aparece, en la primera fila, la probabilidad del pri- 
mer camino, la suma de los dos primeros, de los tres primeros, etc.; y lo 
mismo para la segunda fila. Así, si un número al azar es superior al pri- 
mer elemento de la fila, no sigo el primer camino, pero sigo el segundo 


camino, si el número es inferior al segundo elemento de la fila, suma de 
las probabilidades de los dos primeros caminos, y así sucesivamente. 


El C.C. de Tiempo podrá aparecer tras el Predicado sólo si no lo he 
usado antes en la misma frase. 


Cuántos y cuáles son los Sujetos, Predicados, etc., es algo que de- 
pende de la información que tengo guardada en líneas DATA. 


Además, empleo las variables de control F, ST, TP, PP y L. La va- 
riable F me indica si estoy en la frase primera o en la segunda (en este 
caso, a partir del nodo Predicado, aunque el número aleatorio señale el 
camino que lleva al Nexo, iré al Final); ST, TP y PP indican el Sujeto, 
Tiempo y Predicado empleados en la primera frase, para evitar su repe- 
tición en la segunda, caso de haber segunda. Por último, L vale 1 si no 
apareció Tiempo antes del Predicado, y 2 si apareció: con su ayuda 
tomo probabilidades (elijo fila) empleando las tablas P y M. 


5 REM GENERADOR DE FRASES 

19 RANDOMIZE 

20 DIM P(2.4) : DIM M(2,3) 

309 FOR I=1 TO 2 

40 FOR J=1 TO 4: READ P(l.J): NEXT J 
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59 NEXT | 

59 FOR I=1 TO 2 

70 FOR J=1 TO 3: READ M(I,J)I:NEXT J 

80 NEXT | 

99 READ T : DIM T8 (T,32) 

109 FOR I=1 TOT : READ T8(1) : NEXT | 

110 READ S :DIM S$ (S,32) 

120 FOR I=1 TOS: READ SS$ (1): NEXT | 

139 READP : DIMPS (P,32) 

140 FOR |=1 TOP: READ P8(I) : NEXT | 

159 READ M : DIM MS5(M,32) 

169 FOR l=1 TO M: READ M8(I) : NEXT 1 

170 READ N : DIM Ns$(N,32) 

189 FOR |=1 TON : READ N3(!) : NEXT | 

190 F=D: ST=0: TP=D: PP=D: L=1 

209 REM HABLO 

2109 F=F+1 : K=RND 

220 1F K>.4 THEN 250 

230 K=INT(T * RND+1)]: IF K=TP THEN GOTO 230 

2408 PRINT TS(K] : TP=K : L=2 

250 K=INT([S + RND+1) : IF K=ST THEN GOTO 250 

260 PRINT SS(K]) : ST=kK 

270 1|F RND<.3 THEN PRINT "NO" 

289 K=INT[P * RND+1) : IF K=PP THEN GOTO 280 

290 PRINT PS(K] : PP=K 

3009 K=RND : IF K<P[L,1] THEN GOTO 4080 

310 1F K<P(L,2] THEN PRINT MS(INT[M * RND) +1] :GO TO 350 
320 IF K<P(L.3) THEN PRINT TSUINT(T * RND)J+1):GO TO 380 
330 |1F F=2 THEN GO TO 48D 

348 PRINT NSCINTÍN * RND)+1] :GO TO 218 

359 K=RND : IF K<M[(L,1]) THEN GO TO 489 

368 IF K<M(L,2) THEN GO TO 32D 

379 G0 TO 338 

388 IF RND<.6 THEN GO TO 40D 

398 GO TO 338 

400 PRINT "SIGO HABLANDO (s/nJ?" 

410 GET HS : IF H8<>"s" AND H8<="n" THEN GO TO 418 
420 1F HS="s" THEN GO TO 198 

1008 DATA .3,.55,..8.1..4,.7..7,1 

1IDIBDATA .4,.7.1,.6,.6,1 

10208 DATA 3, "LOS JUEVES","POR LA NOCHE","CUANDO LLUE 
VE" 

10390 DATA 3, "CARLOS","MI TIA PACA","TU VECINO" 

1040 DATA 4, "RONCA","SALTA","DA VOLTERETAS","COME PE 
RAS" 

19859 DATA 5, "ALOCADAMENTE”","SIN PARAR","A LO TONTO", 
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"A TODA PASTILLA"."EN BAÑADOR" 
1069 DATA 3, "ADEMAS","AUNQUE","SIN EMBARGO" 
2009 STOP 
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38 
CANCIONES CON LISTAS 


Canciones con READ-DATA 


Ya has visto cómo pedirme que interprete canciones, aunque escri- 
birlas nota a nota resulta bastante pesado. Ahora veremos que se puede 
hacer más cómodamente. En el programa que viene a continuación em- 
piezo preguntándole cuántas notas tiene la canción, y ejecutando un ci- 
clo tantas veces como notas haya; en este ciclo leo la duración y sonido 
de cada nota. Si no conoces el número exacto de notas, pon una canti- 
dad mayor; todo irá bien hasta que me encuentre en la obligación de se- 
guir leyendo, porque el ciclo me obliga, pero sin poder hacerlo porque 
faltan datos (tendré que ponerte un letrero E OUT OF DATA). El dia- 
grama de flujo de este programa es así: 
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y a esta partitura 


MERRILY 


PRINCIPIO 


N* de Notas 
duración y 
sonido de 
cada nota 


Para todas 
las notas 


Fig. 38.1 


corresponde este programa: 
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1 REM CANCIONES 

5 INPUT "Cuantas notas tiene la cancion":n 

1M0 FOR ¡i=1 TOn 

20 READ d.s 

30 BEEP d,s 

408 NEXT ¡ 

59 DATA .25,9..25,7,.29.9,..29+7,.29+/9,.29,9,.9,9 
55 DATA .25,7,.25.7..9,7,.29+:9,.29,.12,.9,12 

69 DATA .25,9,.25,7,.25,5,.29.7,.25,/9,.25,/9,.5,9 
65DATA .25,7,.25,7,.25,9..25.7,1,5 

78 STOP 


Como ves, este programa sirve para interpretar cualquier canción 
con sólo variar las lineas DATA, e introducir las notas correspondien- 
tes a la canción deseada. 


Canciones con listas 


Para que sea aún más sencillo explicarme qué notas tengo que to- 
car, puedes emplear el programa que viene a continuación. En él te 
pido una “palabra” que lleve escritas las notas en los lugares pares y en 
los impares su duración. Para la duración puedes usar las siguientes le- 
tras: 


redonda oO 
blanca b 
negra n 
corchea c 
semicorchea e 


y para las notas las que aparecen en este pentagrama: 


El programa es el siguiente: 


5PRINTAT28"CANCIONES" 
10 INPUT "Titulo de la cancion":t$ 
15 PRINT AT 6,6:tS 

20 PAUSE 50 

25 PRINT AT 10,6:"Tienes que escribirme la lista de las notas (dur 
acion y nombre) 

39 INPUT ps 

35 PRINT AT 12,6:p3 

4D PRINT AT 15,6:"Introduce un numero del M.5 al 18 segun sea el 
el ritmo mas rapido o mas lento": 

45 INPUT r 

59 DIM d(58) 

69 DIM n(59) 

7D FOR ¡i=1 TOLEN (p8) STEP 2 

8D IF pS (i) ="n" THEN LET dli)=r 

90 1F ps(il ="b" THEN LET dliJ=r * 2 
100 1F ps(i) ="0" THEN LET adliJ=r * y 
11D.1F ps(i) ="c" THEN LET d(i)=r/2 
120 1F ps(i) ="e" THEN LET d(i)=r/4 
130 NEXT ¡ 

149 FOR ¡=2 TO LEN(p$) STEP 2 

1598 1F ps(i)= "d" THEN LET n(i)=D 
160 1F pS(il= "r" THEN LET n(i)=2 
170 1F ps$(i)= "m" THEN LET n(i)=4 
189 1F ps(i)= "f" THEN LET n(i)=5 
190 IF ps(i)= "s" THEN LET n(i)=7 
200 IF ps(i)= "1" THEN LET n(i)=9 
21D 1F ps(i)="¡" THEN LET n(iJ=11 
22D 1F ps(iJ="D" THEN LET n(i)=12 
23D 1F p$(i)J="R" THEN LET n(i)=14 
240 1F ps(iJ="M" THEN LET n(iJ)=16 
25D 1F ps(iJ="f" THEN LET n(i]=17 
260 IF ps$(i)J="S" THEN LET n(i)=19 
270 1F ps$(iJ="L" THEN LET n(i)=21 
289 NEXT i 

3909 FOR ¡=1 TO LEN p$ STEP 2 

310 BEEP (d(¡)/8).m(¡+1) 

320 NEXT j 

330 STOP 


Como puedes observar, también te pregunto con qué lentitud la 
debo interpretar. Para la canción “Cucú cantaba la rana”, me debes dar 
la siguiente palabra: 
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HA A 


Cu cu cu cu can ta ra na cu cu cu cu de ba jo del a gua 


“nlbDnlbDnlnin!lnsn!lnfnlbDnIinsnfnsn!inf” 
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39 
FICHEROS 


Ficheros: creación; lectura; actualización; duplicación. 
Cómo se usan los ficheros 


- Un fichero se podría definir como un depósito de información or- 
denada, aunque por abuso de lenguaje se suele llamar también así al lu- 
gar en que se guarda esa información. Si observas a la gente que maneja 
mucha información, en una oficina municipal por ejemplo, puedes ob- 
servar que cuando necesitan conocer algún dato, van a un archivador o 
fichero, le abren, buscan y copian el dato que les falta y vuelven a cerrar el 
mueble. De la misma manera tengo que actuar yo con los ficheros: los 
abro, busco o guardo en ellos información y los vuelvo a cerrar; tam- 
bién los puedo vaciar, borrar, si ya no me hacen falta, o duplicarlos 
para prever accidentes. 
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Creación de un fichero 


Vamos a hablar solamente de ficheros en cartucho de microdrive. 


Para crear un fichero en un cartucho ya formateado, debes asegurarte 
de que no existe otro de igual nombre; porque si me dice que quieres 
hacer algo en un fichero existente, te dejaré que leas en él, pero no que 
escribas. Supongamos, entonces, que tienes una tienda de discos y quie- 
res crear un fichero con los nombres de los discos que tienes, los can- 
tantes y las unidades vendidas. Para crear este fichero haremos: 


Abrir el fichero “Discos” 

Hacer 

Entrada de nombres de disco, cantante y unidades vendidas 
(d$, c$, Uvend) 

Escribir los datos en el fichero 
hasta que el nombre del disco sea “zzz 
Fin de Entrada 
Cerrar el fichero 
FIN 


> 


Haz el diagrama de flujo correspondiente. El programa resultante 


es éste: 


5 REM Crear fichero 
1MDLET n=8: REM Contador de discos 
15PRINT "Nombre del fichero" 
20 INPUT LINE fS 
25 PRINT fS 
30 OPEN 4 4;:"m":1:fS 
35 PRINT "Para terminar pon zzz" 
48 LET n=n+1 : PRINT "Nombre del disco ":n 
45 INPUT LINE d$ 
52 PRINT "Nombre del cantante" 
55 INPUT LINE c$ 
69 PRINT "Unidades vendidas" 
655 INPUT Uvend 
70 PRINT d$,c$,Uvend:" Un. vend.": PRINT 
78 PRINT E 4:d$' c$' Uvend: IF di=>"zzz" THEN GO TO 4 
BM CLOSE f Y 
85 STOP 


Debes fijarte en las líneas 30, 75 y 80, en particular. En la 30 y en 


la 75, como puedes ver, la puntuación ha de usarse con mucho cuidado, 


242 


en caso contrario el fichero quedará mal construido o no se podrá ha- 
cer. El nombre del fichero se puede introducir con INPUT, como otro 
valor cualquiera. En la línea 75 puedes ver que las variables que se es- 
criben en el fichero han de ir separadas unas de otras por el apóstrofe 


(EN ) El número que asignes al fichero, y que tiene que aparecer 


al abrirle, al escribir en él y al cerrarle, tiene que ser un número entre el 
4 y el 15, ambos inclusive. 


Lectura de un fichero 


Para leer el fichero sigo el mismo proceso: abro el fichero, leo en él, 
escribo en pantalla o impresora lo que voy leyendo, y al terminar, lo 
cierro. Reformado, como puedes ver más abajo, el programa de escri- 
tura, podrás leer el fichero “Discos” que escribimos antes. 


5 REM lee fichero 
1MLET n=0: REM Contador de discos 
15PRINT "Nombre de fichero" 
20 INPUT LINE fs 
25PRINT fS 
30 OPEN 4 4:"m";1:fS 
40 LET n=n+1 
65 INPUT + 4:d$:c$:uvend 
7D1F di<>"zz2" THEN PRINT n:" ":d$,c$,uvend:" un. vend.",: 
GOTO 4D 
75 CLOSE 4 Y 
8 STOP 


La apertura y el cierre del fichero son exactamente igual para es- 
cribir y para leer; pero cuando escribías, separabas las variables con 
apóstrofes ('), y al leerlas tienes que separarlas con punto y coma (;). 


Si en algún momento pretendes que abra un fichero que ya está 
abierto, no tendré más remedio que avisarte con un mensaje "Stream 
already open". Cuando lo veas, debes escribir CLOSE, seguido del nú- 


mero asociado al fichero que intentabas abrir, y pulsar [ENTER 
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Actualizar un fichero 


Actualizar un fichero es cambiarle los datos que están atrasados. 
Por ejemplo, en tu fichero “Discos” puedes leer los datos almacenados 
y poner al día las cifras de ventas. Para ello, debes abrir el fichero ““Dis- 
cos” y otro con un nombre parecido; yo voy leyendo las “fichas” guar- 
dadas en el antiguo y pidiendo, para cada disco, las ventas actuales; a 
continuación guardo el nombre del disco, el del cantante y las nuevas 
cifras en el segundo fichero. Cuando termino de leer el primer fichero, 
cierro ambos y borro el viejo. 


300 REM Actualizar 

310 PRINT "Nombre del fichero" 

320 INPUT LINE f$: PRINT fs 

332 OPEN 4 4:"m":1:f8: REM Fichero antiguo 

348 OPEN 4 5:"m":1:f8+"1": REM Fichero nuevo 

350 LET n=1 

360 INPUT + 4:d$,c8,uvend: REM Leer los valores antiguos 
370 1F d$="zzz" THEN GO TO 432: REM Fin del fichero 
389 PRINT : PRINT n:" ":d$,c$ 

398 PRINT "Nuevas cifras ":: INPUT nc: PRINT nc 

400 PRINT 4 5:d$' c$' nc: REM Se escribe en el nuevo 
410 LET n=n+1 

428 GO TO 360 

438 REM Proceso terminado 

448 PRINT 4 5:d$' c$' uvend: REM Se escribe el final 
450 CLOSE 4 4 

46M CLOSE H 5 

47DERASE "m":1:f$ 

480 STOP 


Duplicando un fichero de datos 


Las instrucciones que conoces no resultan cómodas para leer fiche- 


ros formados por datos. La instrucción MOVE (A) te puede 


MOVE 
ser bastante útil para este tipo de trabajo; con MOVE me puedes pedir 
que “mueva” un fichero de un lugar a otro. Así, si escribes: 
MOVE "m":1:"Discos" TO 2 
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al pulsar ENTER llevaré el contenido del fichero “Discos”, que está 
en el microdrive 1, y lo **volcaré” en la pantalla. Si prefieres que sa!'sa 
por la impresora, debes poner 


MOVE "m":1:"Discos" TO 3 


También puedes emplear esta instrucción para pasar un fichero de 
un microdrive a otro, del uno al dos, por ejemplo: 


MOVE "m";1:"Discos" TO "m":;2:"Discos" 


o bien dentro del mismo drive. 


RESUMEN 


OPEN +4 n;“m”;1;f3: abre el fichero f3, al que se asigna el nú- 
mero ”n. En lugar de f3 se puede poner una 
palabra entrecomillada. Si queremos poder 
escribir en fichero es necesario que su nombre 
no figure previamente en el CATálogo del 
cartucho. 


PRINT Hn,a'b: se escriben los valores a y b en el fichero n. 
Para escribir, el número del fichero se separa 
de las variables por una coma (,); si hay más 


de una variable, estas se separan entre si con 
apostrofes (). 


INPUT +n;a;b: se leen los valores a y b del fichero n. Para 
leer, el número del fichero se separa de las 
variables, y estas entre si, con punto y coma (;). 


CLOSE Hn: cierra el fichero número ». 
MOVE ... TO ...: desplaza bloques de información de un 


lugar a otro. Se usa para inspeccionar fiche- 
ros O para duplicarlos. 
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40 
SUPERPONER DIBUJOS 


INVERSE. OVER. POINT. 


Escritura negativa 


M 
Como ya vimos en el Capítulo 13, poniendo INVERSE (0 


INVERSE 
a continuación de PRINT escribo en negativo; recuérdalo con este 
programa: 


18 REM Refinamientos en la escritura 
120 INPUT ¡ 

132 PRINT INVERSE i:"Hola" 

148 GO TO 1202 

1528 STOP 
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Prueba a dar a 1 los valores 0, 1 y cualquier otro distinto. Puedes 
ver que si i=0, escribo normal; si ¡= 1, entonces escribo invertido, y no 
acepto otros valores. 


Después de hacer estas pruebas sustituye en la línea 130 la orden 


N 
INVERSE por OVER , dejando todo lo demás igual. Cuan- 


OVER 
do hagas las pruebas te parecerá que no vale para nada, pero si intercalas 
estas líneas: 


20 pri 
3DPRINT " dy 
40D PRINT AT QD.D:".": 


y vuelves a pasar el programa, verás que cuando ¡ vale 0, efectivamente 
es como si OVER no estuviese, porque escribo con el color de la tinta 
sobre el color del papel, pero cuando 1 vale 1, entonces escribo sobre el 
fondo que me encuentre, sea papel o tinta, con el color contrario. 


Dibujos en contraste 


También puedes emplear estas instrucciones con PLOT y DRAW. 
Para ver cuál es su efecto lo mejor es dibujar una figura maciza y ver 
cómo pinto sobre ella otras figuras también macizas. Este programa 
consta de dos partes: con la que comienza en la línea 310 pongo en la 
pantalla un rectángulo macizo, con el color de la tinta; a continuación 
se repite la que empieza en 400, en ella me das instrucciones y dibujo 
rectángulos menores en otros lugares. 


390 REM Superposicion de dibujos 
312 REM Fondo de prueba 

320 FOR f=12 TO 29 

3389 FOR c=0 TO 20: PRINT AT f,c:"*: NEXT c 
348 NEXT f 

400 REM Pruebas 

410 INPUT "Valores de x.y e i":x:y:i 
420 REM Superposicion 

4309 FOR z=x TO x+2D 

448 FOR t=y TO y+10 

458 PLOT OVER i:z.t 
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4698 NEXT t 

470 NEXT z 

4809 REM Otra prueba 
499 GO TO 480 

500 STOP 


En la figura 1 aparecen representados a la derecha los resultados 


de dos pruebas en las que he dado a ¡1 el valor cero [OVER B), y a la 
izquierda otras en las que 1 ha valido uno (OVER 1). 


Over 


Fig. 40.1 


Si sustituyes, en la línea 450, OVER por INVERSE, obtendrás los 
resultados en la figura 2. Igual que antes, a la derecha están los rectán- 
gulos que hago para 1 valiendo cero [INVERSE 8) y a la izquierda para 
1 igual a uno (INVERSE 1). 


INVERSE 


Tanto con OVER como con INVERSE, hubieses obtenido los 
mismos rectángulos sustituyendo las líneas 440 y 460 por esta nueva 
versión de la 450: 
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45D PLOT OVER i: z. y: DRAW OVER i: BM, 22 


o bien, 


459 PLOT INVERSE i: z. y: DRAW INVERSE i: BM, 28 


Se puede sistematizar el comportamiento de estas dos funciones en 


la siguiente tabla: 


OVER 


INVERSE 


Cambia 
el papel a 
color tinta 


Deja 
la tinta del 
color tinta 


Cambia 
el papel a 
color tinta 


Deja 
la tinta del 
color de la tinta 


Cambia 
el papel a 
color tinta 


Cambia 
la tinta a 
color papel 


Deja 
el papel 
color papel 


Cambia 
la tinta a 
color papel 


Como ves, su comportamiento es distinto cuando están activadas 
(cuando ¡ vale uno). Cuando no están activadas (cuando 1 vale cero) es 
como si el PLOT, DRAW o PRINT estuviese solo. 


La función POINT 


Esta función me indica que debo mirar un punto de la pantalla 
(pixel) y decirte si está del color del papel, contesto **0”, o del color de 


la tinta, contesto 


e is 


Un programa muy sencillo, y que aclara esto de manera definitiva, 
es este con el que escribo una l en el primer lugar de la pantalla y luego 
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estudio, con la función POINT, los pixels correspondientes (que tienen 
valores de O a 7 para x, y de 175 a 168 para la y). 


6090 REM Funcion POINT 

SIO0PRINT "p" 

620 FOR y=175 TO 167 STEP -1 

639 FOR x=2 TO 7: PRINT POINT(x,y):: NEXT x 
540 PRINT : NEXT y 

652 STOP 


El resultado es que, debajo de la letra I, escribo en la pantalla estas 
filas de ceros y unos: 


siofololololsis 
aolololololo lo 
GPGODODrO 
SP-O0500PGO 
GPPPRPPPO 
SP-OG5B0D-PO 
SP-ODDGPGO 
ooo lolo lolo! 
alo lolo lolo lo 


La baraja 


Si podemos enterarnos de cuáles son los puntos que están de color 
tinta y cuáles de color papel, se pueden hacer dibujos borrando los 
puntos que nos estorben. Esto es muy importante para simular cuerpos 
tridimensionales. 


Vamos a dibujar una baraja en perspectiva: comenzamos por la 
carta del final, dibujando sucesivamente el borde inferior, luego los dos 
bordes laterales, de abajo hacia arriba, y por último el borde superior. 
Sobre esta carta se dibuja la penúltima, luego la antepenúltima, y segui- 
mos hasta llegar a la primera, el as de oros. 


Al dibujar cada carta hay que tener ciudado de borrar la de detrás, 
que las barajas no son transparentes; de eso se encarga la línea 1090. El 
diagrama de flujo figura a continuación, pero deberías reconstruir el 
algoritmo que ha permitido llegar a él. 
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PRINCIPIO 


x de 10 a 140, aum. 5 


FIN 


Fig. 40.4 
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El programa resulta así: 


19909 REM Baraja 

1010 FOR x=10 TO 140 STEP 5 
1020 REM Canto inferior 

1038 PLOT x,x-10: DRAW 38.0 
1040 FOR y=1 TO 39 

10509 REM Canto lateral izquierdo 
1069 PLOT x.x-1D+y 

1070 REM Frente 

1089 FOR z=x+1 TO x+29 

1099 IF POINT (z.x-18+y)=1 THEN PLOT OVER 1.z.x-1D+y 
1109 NEXT z 

1110 REM Canto lateral derecho 
1120 PLOT x+3D,x-1M+y 

1139 NEXT y 

1140 REM Canto superior 

1158 PLOT x,x-18+48: DRAW 38,0 
1168 NEXT x: REM Siguiente carta 
1200 REM Frente 

12180 FOR r=1 TO 19 

1220 CIRCLE 155,158 .r 

12309 NEXT r 

1248 STOP 


RESUMEN 
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INVERSE 1: pasa la tinta sobre la que escribe a color papel. 


OVER 1: permuta los colores de la tinta y el papel sobre 
los que escribe. 


Tanto INVERSE como OVER, pueden seguir inmediatamente 
a PRINT o activarse en otra parte del progra- 
ma. Ambos carecen de efecto cuando van se- 
guidos por un cero. 


41 
POKE, PEEK 


RAM. ROM. POKE. PEEK. ATTR. 
La memoria 


Aunque no lo creas soy bastante olvidadizo, y para recordar lo que 
me has encargado que haga tengo que apuntarlo en una especie de 
agenda que se llama memoria RAM. Las otras cosas que debo recordar, 
las que aprendí en la fábrica (el BASIC, las funciones, cómo tratar con 
los humanos, etc.), las tengo tatuadas en la memoria ROM. 


La memoria es una lista de líneas ordenadas en las que hay cosas 
escritas, ROM, o en las que puedo escribir lo que tú me digas, o anota- 
ciones mías, RAM. Cada línea tiene un número de orden y otro número 
guardado én ella, que es una instrucción en lenguaje de máquina o un 
dato. (Como el lenguaje de máquina es mucho más difícil que el BASIC, 
y además varía de unos ordenadores a otros, no lo vamos a ver en este 
libro.) 


Las instrucciones POKE y PEEK 


Si quieres escribir en mi agenda (en la memoria RAM) tienes que 
ordenarme por ejemplo 


POKE 23080. 148 


y entonces queda escrito el número 140 en la línea 23000 de mi me- 
moria, lo que observarás en la pantalla. Si a continuación escribes 
PRINT PEEK 23888 y pulsas ENTER, obtendrás el número 140. La 
instrucción PEEK 23288 lee lo que está escrito en la linea 23000 de mi 
agenda; igual podrías haber leído de mi biblioteca (Memoria ROM), 
aunque no puedes escribir en ella. 
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Los colores de la pantalla 


Como recordarás, considero la pantalla dividida en 768 lugares (24 
filas y 32 columnas). En cada uno de ellos puedo escribir con diferentes 
combinaciones de color (ver en el Capítulo 21 el programa de posibili- 
dades de escritura en color). 


Recuerdo cómo tengo que escribir en cada uno de esos lugares 
porque lo anoto en la memoria RAM, con un número entre 0 y 255, 
este número se calcula con la expresión siguiente: 


tinta + 8 * papel + 64 « brillo + 128 * flash 


Los lugares de memoria donde apunto estos valores tienen por 
dirección los números 22528 a 23295. Un programa que puede ayudarte 
a aclarar estos conceptos es éste (haz el diagrama de flujo): 


19 REM POKES DE PANTALLA 

20 LET dir=22528 

30 FOR f=0 TO 1: REM flash 

38 FOR b=8 TO 1: REM brillo 

40 FOR p=0 TO 7: REM papel. Cuatro colores de papel en cada fila 
50 FOR t=28 TO 7: REM tinta. Cambia de continuo 
60 POKE dir,t+8 * p+64 x* b+12B x f 

70LET dir=dir+1 

80 NEXT t:REM Siguiente tinta 

99 NEXT p:REM Siguiente papel 

190 NEXT b: REM Poner brillo 

110 NEXT f: REM Poner flash 

120 STOP 


Después de pasar este programa, escribe cosas en la pantalla, verás 
como los colores permanecen, aunque alteres lo escrito. 


Los valores de f, b, p y t, que corresponden á cada lugar se llaman 
atributos (ATTR) de ese lugar. Para conocerlos, puedes pedirme ATTR 
(fi, co), siendo fi la fila y co la columna del cuadradito que nos interesa; 
el resultado de la pregunta es un número entre 0 y 255, como ya supon- 
drás, si quieres una contestación más clara puedes usar el programa 
siguiente: 
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200 REM ATRIBUTOS 

210 INPUT "Fila y columna del cuadradito ":fi,co 

220 LET N=ATTR (fi,co) 

238 PRINT "Flash"; :IF N<128 THEN PRINT M:GO TO 258 
249 PRINT 1:LET N=N-126: REM Si hay intermitencia 

259 PRINT " Brillo":: IF N<64 THEN PRINT 8:GO TO 270 
260 PRINT 1:LET N=N-64: REM Si hay brillo 

270 PRINT"PAPEL":INT (N/8J:LET N=N-INT[N/8) x* B 

2809 PRINT " TINTA "¿N 

2989 STOP 


RESUMEN 
Memoria RAM: se borra al cortar la corriente eléctrica. 
Memoria ROM: no se borra al cortar la corriente eléctrica. 


POKE. 1,b: escribe el byte b en el lugar / de la memoria 
RAM. 


PEERK..: recupera el byte almacenado en el lugar K de 
la memoria. 


ATTR (f. c): nos da el byte almacenado en el lugar de la 
memoria RAM que controla los atributos de 
color correspondientes al cuadro que ocupa la 
fila f y columna c. 
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DEFINICION 
DE CARACTERES 


USR. Definición de caracteres y dibujos por el usuario. 
Caracteres definidos por el usuario 


La función USR permite definir subrutinas en lenguaje máquina. 
Aquí te voy a contar cómo puedes emplear esta función para definir los 
símbolos que te falten, por ejemplo, Ñ, ¿, letras góticas o jeroglíficos 
egipcios. 


Lo primero que tienes que hacer para poner una letra nueva, es 
tener en cuenta que las pinto en cada uno de los 24 X 32 cuadraditos en 
que divido la pantalla. Cada uno de estos cuadrados está formado por 
64 puntos (pixels) que pongo del color de la tinta o del papel, según 
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tenga escrito en ciertos lugares de la RAM un 1 o un 0, respectíva- 
mente. Si quieres definir la N, por ejemplo, tienes que dibujar una 
cuadrícula de 8X 8, como un tablero de ajedrez, y señalar los luga- 
res que tengo que poner con tinta; a su lado, puedes formar un cuadra- 
do con 64 números, ceros y unos, que se correspondan con los puntos 
blancos y negros, como aparece en la figura. (Estas sucesiones de unos 
y ceros son números en base dos, BINarios.) A continuación ya puedes 


escribir este pequeño programa que me cuenta cómo es la letra nueva: 


10 REM Programa para definir simbolos 

20 REM Datos que varian de un simbolo a otro 

39 DATA "n": REM Tecla que escribira el simbolo nuevo 

40 REM Ceros y unos por lineas horizontales (filas) 

59 DATA BIN 00111100 

51 DATA BIN 2202000000 

52 DATA BIN B1100010 

53 DATA BIN D1810010 

54 DATA BIN D1001010 

55 DATA BIN B1000110 

56 DATA BIN D1000010 

57 DATA BIN 20000000 

100 REM Parte del programa que no depende de la letra 

118 READ t$ : REM Leo el nombre de la tecla que me indicara que 
tengo que escribir el nuevo signo 

120 FOR f=0 TO 7: REM Para las ocho filas 

139 READ numero: REM Leo el numero binario que se corresponde 
con la fila 

140 POKE USR t$+f, numero: REM Apunto ese numero en un lugar 
apropiado de mi agenda [RAM] 

150 NEXT f 

168 STOP 


Una vez hayas escrito el programa y pulsado RUN y ENTER, pon 
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el cursor en gráficos (G) y aprieta la tecla (N). Verás en pantalla la 
letra que tú acabas de crear. Puedes definir veintiuna letras o símbolos 
de otro tipo al mismo tiempo, una por cada una de las letras a, b, ... 
hasta la u. Estos nuevos símbolos no desaparecen aunque ordenes un 
borrado de memoria con la instrucción NEW. 


Autorretrato 


El programa que viene a continuación, no sólo me permite apare- 
cer en la pantalla, sino también moverme por ella. Lo primero es pin- 
tarme sobre una cuadrícula, que ahora será de 16 cuadrados en hori- 
zontal por 24 en vertical (para que se me vea bien); esto supone definir 
seis pequeños dibujos que luego habrá que pintar siempre juntos. Las 
letras elegidas pueden ser a y s para arriba. d y f para la zona media y 
g y h para la parte inferior. 


tJo|r[olo[rojo|o|1] 

1Jo|rfofo[r/oJo/o|[o|o[»] 
fo |rfojofrfoJofo[rofof| 
fo fr[r[rpr]ojofofr[1[r[r] 
Lili fitotofifrada todo ha | 
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Como puedes observar, las filas que señalo a continuación son 
iguales: 


a3=d0 
a4=a7 s4 = s7 
a5=a6 s5=s6 


dl=d2=d6=d7=g0  fl=f2=f6=f7=h0 
gl=g2=g3=g4=g5  hl=h2=h3=h4=h5 


lo que permite simplificar el programa. Dedico las últimas líneas a 
pasearme por la pantalla (recuerda que para tener mi retrato debes 
poner el cursor en G antes de apretar las teclas a, s, d, f, g y h). 


10 REM Espectro 

20 REM Damos nombre a los bytes que se repiten 

30 LET a3=BIN 10901110: LET a4=BIN 10010001: LET a5=BIN 10010 
191 

40 LET s4=BIN 018080181: LET s5=BIN D10101D1 

50LET d1=BIN 10000000 

60 LET f1=BIN 02200001 

70 LET g1=BIN 10100109 

80QLET h1=BIN 01021001 

1009 REM Datos para definir los 6 caracteres 

11MDDATA "a": REM primero los 3 a que no se repiten 

128 DATA BIN 28011111, BIN 28100000, BIN 01002000, a3.a4,a5.a 

5,a4 

138 DATA "s": REM primero los 4 s que no se repiten 

148 DATA BIN 11112000, BIN 00081200, BIN 20000100, BIN 081110 
10, s4,s5,s5.s4 

158 DATA "d" : REM primero un byte que es como los a y en el cen 
tro los que no se repiten 

160 DATA a3.d1.d1.BIN 10001290, BIN 18000100, BIN 10000011,d1, 


dl 

170DATA "f" 

189 DATA BIN 20111201,f1.f1. BIN 20001001, BIN 00210001, BIN 
11100001,f1.f1 

199 DATA "g" : REM primero uno que es como dl y luego los que s 
e repiten 


209 DATA d1.g1.91.91.91.91. BIN 19111199, BIN 11188111 
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210 DATA "h" : REM primero uno que como f1 y luego los que se r 
epiten 

220 DATA f1,h1.h1.h1,h1,h1, BINB1111001. BIN 11081111 

399 REM Aqui se leen los nuevos caracteres 

310 FOR c=1 TO6 

320 READ c$: REM Se lee la tecla a la que se asigna el dibujo 
330 REM Se leen 8 bytes para cada tecla 

340 FOR b=8 TO 7: READ byte: POKE USR c$ + b.byte: NEXT b 
3598 NEXT c 

409 REM Espectro en movimiento 

410 FOR ¡i=8 TO 29 

420 PRINT AT 8,1: se se 

438 PRINT AT Qi: » 2%». 

440 PRINT AT 10,1: Bi” 

45D PAUSE 10 

4609 NEXT i 


RESUMEN 


USR n: transfiere la ejecución a una rutina en lenguaje 
máquina que comienza en el lugar n de la me- 
moria RAM. 
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Colección: 
El DRADENADORA AMIGO 
EL BASIC DEL SPECTRUM 


